شكرا اخي تمت الافادة من الكود التالي
On Error GoTo 10
If CurrentRecord < DCount("المعرف", "جدول1") Then
Form_نموذج1.AllowAdditions = False
DoCmd.GoToRecord , , acNext
Else
10 MsgBox "لا يوجد سجل لاحق"
Form_نموذج1.AllowAdditions = True
End If
تحياتي لك