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

اخي هذي لازم يكون النموذج مربوط بالجدول عن طريق الكود

مثل

Dim db As ADODB.Connection

Dim rs As ADODB.Recordset

Set db= CurrentProject.AccessConnection

Set rs = New ADODB.Recordset

rs.Open "stable", db, adOpenDynamic, adLockOptimistic

بعدها تقدر تحصل على اللي تبي

يعني مثلا تضع شرط

if rs.beof=true

then

rs.movenext

elseif rs.eof=true then

rs.movenprevious

شكراً لك اخي الكريم

لم أفهم هذا الكود كما أنه لم يعمل معي علما بأني أستخدم access 2003

إنني احتاج إلى تحديث بيانات الجدول أثناء تسجيل بعض الحقول في النموذج

فأضع هذا الكود

DoCmd.GoToRecord , , acPrevious

DoCmd.GoToRecord , , acNext

لكن تفشل إذا كنا في السجل الأول

وإذا كتبت

DoCmd.GoToRecord , , acNext

DoCmd.GoToRecord , , acPrevious

تفشل إذا كنا في السجل الأخير

فما الحل في رأيك؟

اخوي ياليت ترفق لي مثالك

احاول اعدل فيه

واعيد ارفاقه

سوف ابسط طلبي ليكون: أرجوكودا كهذا

then [ السجل الحالي هو الأول] if

DoCmd.GoToRecord , , acNext

DoCmd.GoToRecord , , acPrevious

then [السجل الحالي هو الأخير] if

DoCmd.GoToRecord , , acPrevious

DoCmd.GoToRecord , , acNext

فينكم يا شباب 00 رجاء الاهتمام للحاجة