حياك الله اخي رضا الله
هذا الكود للسجل الأخير
On Error Resume Next
Me.Refresh
With Recordset
If .AbsolutePosition = .RecordCount - 1 Then
MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
Else
DoCmd.GoToRecord , , acNext
End If
End With
هذا الكود للسجل الأول
On Error Resume Next
Me.Refresh
With Recordset
If .AbsolutePosition = 0 Then
MsgBox "هذا هو السجل الأول ", vbInformation + vbOKOnly, "تنبيه"
Else
DoCmd.GoToRecord , , acPrevious
End If
End With
بالتوفيق ان شاء الله