السلام عليكم ورحمة الله وبركاته
ارجو منكم المساعدة في اكتشاف الخطأ في هذا البرنامج
لانه اختبار وهو مطلوب مني في الاسبوع القادم فارجو منكم المساعدة
لاني مبتدئ في البرنامج
و البرنامج جزء من برنامج مربوط بقاعدة بيانات بالاكسس وتم الربط من خلال اداءة data
و هذه ازرار للانتقال في سجلات الجدول
و هذا هو الكود المستخدم لجميع الازرار
Command 1
Data1.Recordset .addnew
Command 2
Data1.Recordset .delet
Data1.Recordset .moveprevious
Command 3
If not Data1.Recordset .EOF then
Data1.Recordset .movenext
Else
Msgbox("this is last record")
End if
Command4
If not Data1.Recordset .EOF then
Msgbox("this is frist record")
Else
Data1.Recordset .movepreviouse
End if
Command 5
Data1.Recordset .movefirst
Command 6
Data1.Recordset .movelast
