ilgili sub ları alttakiler ile değiştirip deneyebilirsiniz.

Bilmiyorum farkındamısınız ilk SonrakiKayit butonuna tıklayınca 1 yerine 2 den başlıyor.

Private Sub OncekiKayit_BTN_Click()



var:

      If GelirRS.BOF Then GoTo soN

      If GelirRS.AbsolutePosition = 1 Then Exit Sub

      GelirRS.MovePrevious



      ID_TXT = GelirRS(0)

      Me.Tarih_TXT = GelirRS(1)

      Me.HesapTuru_CBO = GelirRS(2)

      Me.MakbuzNo_TXT = GelirRS(3)

      Me.GelirTuru_CBO = GelirRS(4)

      Me.GirenTutar_TXT = GelirRS(5)

      Me.GiderTuru_CBO = GelirRS(6)

      Me.CikanTutar_TXT = GelirRS(7)

      Me.Aciklama_TXT = GelirRS(8)

      

      

    If GelirRS(5)= 0 Then GoTo var

soN:



End Sub

Private Sub SonrakiKayit_BTN_Click()



var:

      If GelirRS.EOF Then GoTo soN

      If GelirRS.AbsolutePosition = GelirRS.RecordCount Then Exit Sub

      GelirRS.MoveNext



      ID_TXT = GelirRS(0)

      Me.Tarih_TXT = GelirRS(1)

      Me.HesapTuru_CBO = GelirRS(2)

      Me.MakbuzNo_TXT = GelirRS(3)

      Me.GelirTuru_CBO = GelirRS(4)

      Me.GirenTutar_TXT = GelirRS(5)

      Me.GiderTuru_CBO = GelirRS(6)

      Me.CikanTutar_TXT = GelirRS(7)

      Me.Aciklama_TXT = GelirRS(8)

      

      

    If GelirRS(5)= 0 Then GoTo var

soN:



End Sub