الافضل استخدام الكود الثاني
فقط قم بازالة هذا السطر
If Me.Dirty Then Me.Dirty = False
بالنسبة لكود السجل التالي
ضع هذا الكود خلف زر أمر مع تغيير مايلزم
Private Sub Next_Click()
On Error GoTo Err_Next_Click
DoCmd.GotoRecord , , acNext
Exit_Next_Click:
Exit Sub
Err_Next_Click:
MsgBox " لايوجد سجل تالي", 48, "تنبيه "
Resume Exit_Next_Click
End Sub
وهذا للسجل السابق
Private Sub previous_Click()
On Error GoTo Err_previous_Click
DoCmd.GotoRecord , , acPrevious
Exit_previous_Click:
Exit Sub
Err_previous_Click:
MsgBox "هذا السجل الأول", 48, "تنبيه"
Resume Exit_previous_Click
End Sub
::بالتوفيق::