Listbox Sütun Toplama

24/02/2017, 21:55

İbrahim Şenol

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.
24/02/2017, 22:24

serdar_20

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
24/02/2017, 22:43

İbrahim Şenol

Cevabınız için teşekkür ederim. Listbox üzerinde bu fonksiyonların kullanıldığı bir örnek mevcut mu?
24/02/2017, 23:17

husem

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
24/02/2017, 23:47

İbrahim Şenol

Sayın husem,

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

Saygılarımla.