Farklı Toplamlar

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]
[/img]

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.

sn lemoncher2, teşekkürler,

Kolay Gelsin