Sn@feraz düşündüğüm gibi çıktı maalesef oncekı ve sonrakı butonlarıyla dolaştığınızda gider kayıtlarını PAS geçiyor tamamdır ama oldu ya son kayıt yada ilk kayıt eğer gider kaydı ise onları pas geçmiyor direk gösteriyor. Son kayıt tuşuna böyle bir kod yazdım son kayıt eğer sıfırsa bir önceki kayda gitsin ve devam etsin demek istedim ama  GelirRS.MovePrevious ibaresini nasıl ekleyeceğimi bilemedim. Bu kod çalıştığında da Access in duman çıkartmasını sağlamış oldum

Private Sub SonKayit_BTN_Click()



'GelirRS.MoveLast



'AlanDoldur



var:

      If GelirRS.BOF Then GoTo soN

      GelirRS.MoveLast

      'GelirRS.MovePrevious



      AlanDoldur

      

    If GelirRS(5) = 0 Then GoTo var

soN:



End Sub