للعلم بداية ولكن ليس لاحواله نهاية ... فوددت مشاركتكم بهذا سعيا لعموم الفائدة
هذا تصور عن احوال أزرار التنقل باختصار شديد ....
Private Sub cmdLast_Click()
Navigate acLast
End Sub
Private Sub cmdNew_Click()
Navigate acNewRec
End Sub
Private Sub cmdNext_Click()
Navigate acNext
End Sub
Private Sub cmdFirst_Click()
Navigate acFirst
End Sub
Private Sub cmdPrevious_Click()
Navigate acPrevious
End Sub
Private Sub Navigate(intWhere As Integer)
On Error GoTo CannotGo
DoCmd.GoToRecord , "", intWhere
Exit Sub
CannotGo:
Beep
End Sub