öncelikle formunuza aşağıdaki yordamı ekleyin

Sub KayitDolas(Optional xGez As Integer)

Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim str As String

    Dim SSQL As String

'    SSQL = "SELECT * FROM tbl_ornek"

    Set db = CurrentDb

'    Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)

    Set rs = db.OpenRecordset("tbl_ornek", dbOpenTable, dbSeeChanges)



    rs.MoveFirst

    With rs

          ' Set the index.

          .Index = "PrimaryKey"

          If xGez = 0 Then 

            .MoveFirst

          ElseIf xGez = 2 Then

            .MoveLast

          Else

          If Len(Me.tid & "") = 0 Then GoTo Kapat

            .Seek "=", Me.tid

            .Move xGez

          End If

    If .BOF Or .EOF Then GoTo Kapat

          

    End With



    Me.tadi = rs.Fields("adi").Value

    Me.tid = rs.Fields("id").Value

Kapat:

    rs.Close

    db.Close

    Set rs = Nothing

    Set db = Nothing

    

End Sub

kodun kaba mantığı şu
xGez değişkeni ile  yordama yapacağı işlem bilgisi gönderiliyor

• xGez = -1 ise bir önceki kayda gider
  
• xGez = 1 ise bir sonraki kayda gider
  
• xGez = 0 ise bir ilk kayda gider
  
• xGez = 2 ise bir önceki kayda gider
  

gerisi düğme ekleyip ilgili parametre ile yordamı çalıştırmak
mesela sonraki kayda gitme düğmesinin yordamı

Private Sub BtnSonra_Click()

KayitDolas 1

End Sub