Skip to main content

AccessTr.neT


Farklı Toplamlar

Farklı Toplamlar

Çözüldü #1
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:

Visual Basic Code
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][Resim: do.php?img=11397][/img]
.rar farklı toplamlar.rar (Dosya Boyutu: 38,86 KB | İndirme Sayısı: 2)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
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.
Cevapla
#3
sn lemoncher2, teşekkürler,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#4
Kolay Gelsin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da