كود للتنقل بين السجلات

[أواب]

السلام عليكــم ورحمـة الله وبركاتــه ،،

إخواني الأجلاء:

أريد كودا للتنقل بين السجلات على النحو التالي:

إذا كان السجل الحالي هو الأول ينتقل للسجل التالى

وإذا كان السجل الحالي هو الأخير ينتقل للسجل السابق

مع خالص الشكر

[y_mom2003]

الحل بواسطة recordset

New_Microsoft_Access_Application.rar

[أواب]

أرجوكودا كهذا

 

then [ السجل الحالي هو الأول] if
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

then [السجل الحالي هو الأخير] if
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acNext