+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox Sütun Toplama (/konu-listbox-sutun-toplama.html)
Listbox Sütun Toplama - İbrahim Şenol - 24/02/2017
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.
Cvp: Listbox Sütun Toplama - serdar_20 - 24/02/2017
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
Cvp: Listbox Sütun Toplama - İbrahim Şenol - 24/02/2017
Cevabınız için teşekkür ederim. Listbox üzerinde bu fonksiyonların kullanıldığı bir örnek mevcut mu?
Cvp: Listbox Sütun Toplama - husem - 24/02/2017
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 SubCvp: Listbox Sütun Toplama - İbrahim Şenol - 24/02/2017
Sayın husem,
Cevabınız için teşekkür ederim aradığım buydu.
Saygılarımla.