ما شاء الله عليك أستاذي رمهان أنت شديد الملاحظة نفعنا الله بما تقدمه من علم و جزاك الله عنا خير الجزاء.
لقد قمت بتغيير طفيف يمكنني من إصطياد الخطأ الذي ذكرته و البقاء في نفس السجل الذي أقوم بالتعديل عليه.
If CurrentRecord = 1 Then
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Else
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acNext
End If
قاعدة بيانات1.rar