AccessTr.neT

Bul · 15/11/2021, 18:43

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]

Bul · 15/11/2021, 19:28

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.

Bul · 15/11/2021, 20:29

sn lemoncher2, teşekkürler,

Bul · 15/11/2021, 20:29

Kolay Gelsin

AccessTr.neT

Farklı Toplamlar

Farklı Toplamlar

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri