+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Farklı Toplamlar (/konu-farkli-toplamlar.html)
Farklı Toplamlar - husem - 15/11/2021
merhaba arkadaşlar,
formdaki liste kutusunun verilerini açılışta topluyor, alt taraftaki toplam bu,
ayrıca liste kutusundan seçtikçe topladığı değerde üst taraftaki toplam,
üst taraftaki toplam doğru, ama
alt tarafa aldığı toplam yanlış,
yardımcı olabilirmisiniz?
sorgu kodu:
Dim SW As Long, Sonuc1 As Double, Sonuc2 As Double
For SW = 1 To Me.Liste0.ListCount - 1
Sonuc1 = Sonuc1 + Nz(CDbl(Me.Liste0.Column(1, SW)), 0)
Sonuc2 = Sonuc2 + Nz(CDbl(Me.Liste0.Column(2, SW)), 0)
Next SW
Me.TKG = Sonuc1
Me.TADET = Sonuc2[img]
RE: Farklı Toplamlar - lemoncher2 - 15/11/2021
Merhaba Sayın Husem
kodlarını inceledim hatanızın sebebi liste kutunuzun ilk satırında bulunan değerin toplama dahil edilmemesi
For SW = 1 To Me.Liste0.ListCount - 1
Kırmızı olarak işaretlediğim 1 değerini 0 olarak değiştirdiğinizde sorununuz düzelecektir.
RE: Farklı Toplamlar - husem - 15/11/2021
sn lemoncher2, teşekkürler,
RE: Farklı Toplamlar - lemoncher2 - 15/11/2021
Kolay Gelsin