mesela sonraki kayda git butonu için
Kod:
Private Sub btnSonrakiKaydaGit_Click()
If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext
End Sub
Kod:
Private Sub btnOncekiKaydaGit_Click()
If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious
End Sub