Dao İle Bir Sonraki Kayda Git

Merhaba,

İlişkisiz form üzerinden dao ile kayıt yapan form oluşturdum. Kayıtlar arasında gezinmek istiyorum onun için bir düğmeye aşağıdaki kodu ekledim, düğmeye bastığımda sadece bir kayıt ileriye gidiyor. Düğmeye her basmamda bir kayıt ileriye gitmesini nasıl yapabilirim?
Teşekkür ederim

 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)

    'rs.MoveFirst

    rs.AddNew

   

    rs![adi] = Me.tadi

    rs.Update

    rs.Close

    db.Close

    Set rs = Nothing

    Set db = Nothing

ö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

Merhaba

Hocam aşağıdaki hatayı veri,
[img]
[/img]

(25/03/2023, 12:59)berduş yazdı: öncelikle formunuza aşağıdaki yordamı ekleyin

mesajımda özellikle belirtmiştim kodu formunuza eklemeniz gerektiğini)

Merhaba,

Hocam elinize, emeğinize sağlık çok teşekkür ederim çok güzel oldu.
(öncelikle formunuza aşağıdaki yordamı ekleyin) demenize rağmen dikkatsizlik ve acelecilik ederek modüle eklemişim kusuruma bakmayın zamanınızı aldım.

Sayılarımla.

rica ederim)
dört işlevi de kontrol ettiniz mi?