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