AccessTr.neT

Tam Versiyon: Listbox Sütun Toplama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
Cevabınız için teşekkür ederim. Listbox üzerinde bu fonksiyonların kullanıldığı bir örnek mevcut mu?
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
Sayın husem,

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

Saygılarımla.