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.
Kayıt Gezinti2.rar
(Dosya Boyutu: 140,83 KB | İndirme Sayısı: 1)
