جميل جدا أخي محمد صالح
ويمكن أن نقول
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
If CurrentRecord < DCount("المعرف", "جدول1") Then
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acFirst
End If
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
فيبقى في دوران بين القيود الموجودة الى ان يختار اضافة قيد جديد
شكرا للفكرة أخي الحبيب محمد صالح
عسى أن يكون لأخينا السائل فيها فائدة
........