Skip to main content

AccessTr.neT


Listbox Sütun Toplama

İbrahim Şenol
İbrahim Şenol
4
2628

Listbox Sütun Toplama

#1
Merhabalar,

"liste" adlı Listbox'ın 3. kolonunda bulunan değerleri toplatıp "toplam" adlı textbox'ına yazdırmak istiyorum.  Nasıl gerçekleştirebilirim.
List.count kullanarak listede bulunan ürün sayısını sayabiliyorum. list.total veya list.sum gibi bir fonksiyon mevcut mu?

Saygılarımla.
Son Düzenleme: 24/02/2017, 21:56, Düzenleyen: İbrahim Şenol.
Cevapla
#2
merhabalar,
liste kutusunun kayıt kaynağını sorgu şeklinde ayarlayip Dsum ile isteğiniz alandaki toplamı alabilirsiniz. aşağıdaki linkte konu anlatımı mevcuttur.
https://accesstr.net/konu-dsum-ve-sum-islevi.html
Cevapla
#3
Cevabınız için teşekkür ederim. Listbox üzerinde bu fonksiyonların kullanıldığı bir örnek mevcut mu?
Cevapla
#4
sn ibrahimŞenol
call topla
' bu kodu metin kutusunun olay yordamına kopyalayınız, değiştiğinde,yada güncelleme sonrası olay yordamına koyabilirsiniz, 

liste11'yazan yere listbox'ın adını yaz,
toplamını alacağın alan liste kutusunda hangi sütun ise.... 8 yazan yere onu yazınız.
me.toplam' olan metin kutusuda toplamı yazdıracağın alan.
olacağını düşünüyorum, bi deneyin,
saygılar.

Private Sub topla()
Dim Sw As Long, Sonuc As Double
For Sw = 1 To Me.Liste11.ListCount - 1
Sonuc = Sonuc + Nz(CDbl(Me.Liste11.Column(8, Sw)), 0)
Next Sw
Me.toplam = Sonuc
End Sub
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#5
Sayın husem,

Cevabınız için teşekkür ederim aradığım buydu.

Saygılarımla.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da