AccessTr.neT

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.