oğuz bey en sonda yada baştaysa hata engellenebilir bir şekilde ama ya hepsi 0 ise yada ardarda sıralı bir kaç 0 değeri varsa ne olacak

Eki deneyebilirsiniz.Hepsi 0 olsa bile sonuç veriyor.

En üste Dim Gveri1 As Integer ekledim.

FormLoad kısmına

  GelirSql = "Select count(*) from T_HesapHareketleri where GirenTutar> 0"
  GelirRS.Open GelirSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  If GelirRS(0) = 0 Then Exit Sub
  GelirRS.Close

ekledim.

Ve önceki sonraki enson ilk gibi butonlara kod ekledim.

(20/03/2020, 15:29)berduş yazdı: oğuz bey en sonda yada baştaysa hata engellenebilir bir şekilde ama ya hepsi 0 ise yada ardarda  sıralı bir kaç 0 değeri varsa ne olacak

Snç@berduş 0 değeri olan hiç bir kaydı göstermemesi ve atlaması gerekiyor çünkü Formdaki 0 olarak gözüken kayıtların Gelir değil gider kayıtları olduğu anlamına geliyor.

Çalışmanızı inceleyemedim ama kayıt kaynağında kullanacağınız sorguya o koşulu ekleseniz daha uygun olmaz mı?

Kusura bakmayın @feraz bey yanıtınızı geç gördüm

(20/03/2020, 15:55)berduş yazdı: Çalışmanızı inceleyemedim ama kayıt kaynağında kullanacağınız sorguya o koşulu ekleseniz daha uygun olmaz mı?

 O koşulu ekledim ve Gelir Listesi formunda o koşul sayesinde giderler gösterilmiyor ama formda gezinirken gösterilmemesi olayını başaramadım. Sn@feraz Önceki ve sonraki butonlarında olayı çözdü ama ilk kayıt son kayıt butonları devreye girince çözüm bozuldu.