Private Sub btnOncekiKaydaGit_Click()
If Not (CurrentRecord = 1) Then DoCmd.GoToRecord , , acPrevious
End Sub
Private Sub btnSonrakiKaydaGit_Click()
If Not (CurrentRecord = (DCount("*", RecordSource) Or NewRecord)) Then DoCmd.GoToRecord , , acNext
End Sub