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