السلام عليكم
ارجو المساعدة في ايجاد كود فى الأكسس يرجعني لأول سجل فى الفورم عندما اصل لاخر سجل على الفورم باستخدام الامر next
يعنى
if EOF then go to first
else
statements
......
end if
or
do until EOF
statments
......
go to next
loop
ياريت حد يساعدني في الموضوع ده وبسرعة لو تكرمتم
أخي العزيز ............... الثهامي
بعد التحية
ضع هذا الكود مثلاً عند الفتح
Dim Q As RecordSet
Set Q = CurrentDb.OpenRecordSet("select * from Employees")
While Not Q.EOF
Q.Edit
Q!salary = Q!salary+10
Q.Update
Q.MoveNext
Wend
Q.MoveFirst
هذا الكود يعدل الراتب ويضيف الى جميع الموظفين 10 دينار بالاضافة الى الراتب
وعند الانتهاء يعود الى السجل الاول
ملاحظة لو ترفق قاعدة البيانات يكون أفضل للتعديل عليها
أخيك / كمال النحال
تم تعديل هذه المشاركة بواسطة kamal alnahhal في 8 يوليو 2007 في 18:36
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
أخي الحبيب s.eltuhamy
هذه المشكلة أو " الرغبه " واجهتني قبل اسبوعين تقريباً أثناء تصميمي لبرنامج ... فكان الحل
On Error GoTo errsub DoCmd.GoToRecord , , acNext errsub: If Err.Number = 2105 Then DoCmd.GoToRecord , , acFirst Resume Next End If
وهو ليس من عملي بل مما وجدته هنا وهناك ... أتمنى أن يفي بالغرض وأن تشملني بدعوه صادقه ضمن دعوتك لمن أنشأ هذا الكود
السلام عليكم
الاخت الكريمة
تم مناقشة هذا الموضوع فى اول مشاركة لكي بالمنتدي
اخوكي فى الله
Microsoft Certified DataBase Administrator MCDBA
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…