Private Sub Form_Load() 



..........

.................



ilkKayit_BTN_Click



End sub

Yukarıdaki gibi End Subun üst satırına   ilkKayit_BTN_Click eklerseniz açılışta birinci kayıtta görükür.

(20/03/2020, 14:21)feraz yazdı:

Private Sub Form_Load() 



..........

.................



ilkKayit_BTN_Click



End sub

Yukarıdaki gibi End Subun üst satırına   ilkKayit_BTN_Click eklerseniz açılışta birinci kayıtta görükür.

Sn@feraz teşekkür ederim istediğim gibi çalışyor sadece gider formunada gerekli eklemeleri yapıp son bir olayı test etmem lazım o da şu eğer ilk yada son kayıt bizim Bu örneğimizden yola çıkarsak eğer ilk kayıt gider türünde alan değeri 0 olan bir kayıt olsaydı onu gösterirmiydi yoksa atlarmıydı çünkü anladığım kadarıyla önceki ve sonraki butonlarının kod yapısını değiştirdiniz bilmiyorum bu olasılık aklınıza geldimi

(20/03/2020, 14:21)feraz yazdı:

Private Sub Form_Load() 



..........

.................



ilkKayit_BTN_Click



End sub

Yukarıdaki gibi End Subun üst satırına   ilkKayit_BTN_Click eklerseniz açılışta birinci kayıtta görükür.

 Yöntemi öğrendiğim iyi oldu başka yerlerde kullanabilirim. Bu formlarda ise sadece günün tarihi dolu diğer alanlar boş olarak formu kayda hazır halde açtıracağım. Teşekkür ederim.

Rica ederim.
İlk kayıt sıfır ise

Private Sub Form_Load() 



..........

.................

ilkKayit_BTN_Click

If GelirRS(5) = 0 Then SonrakiKayit_BTN_Click

End Sub

(20/03/2020, 14:59)feraz yazdı: Rica ederim.
İlk kayıt sıfır ise

Private Sub Form_Load() 



..........

.................

ilkKayit_BTN_Click

If GelirRS(5) = 0 Then SonrakiKayit_BTN_Click

End Sub

Bu şekilde kod çalıştı şimdide geri gidince sıfır çıkıyor onu halledeyim yazarım.

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