+- 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ığı: Liste Kutusundaki Tutarların Toplamını Almak (/konu-liste-kutusundaki-tutarlarin-toplamini-almak.html)
Liste Kutusundaki Tutarların Toplamını Almak - Allback - 04/09/2018
Merhaba,
Formdaki liste kutusunda bulunan "Toplam Tutar" kolonunun toplamını "txtoplam" isimli metin kutusuna almak istiyorum.
Bu konu ile ilgili bir sürü örnek buldum ama uygulamaya çalıştığımda sürekli hata verdi.
Yardımlarınızı rica ederim.
Cvp: Liste Kutusundaki Tutarların Toplamını Almak - Allback - 04/09/2018
(04/09/2018, 15:26)Allback yazdı: Merhaba,
Formdaki liste kutusunda bulunan "Toplam Tutar" kolonunun toplamını "txtoplam" isimli metin kutusuna almak istiyorum.
Bu konu ile ilgili bir sürü örnek buldum ama uygulamaya çalıştığımda sürekli hata verdi.
Yardımlarınızı rica ederim.
Aşağıdaki şekilde bir fonksiyon yazıp, butona tanımladım.
Liste kutusu güncellenince toplam tutarı da güncelliyor...
Konu taşınabilir...
Kod:
Private Sub topla()
Dim Sw As Long, Sonuc As Double
For Sw = 1 To Me.grup1_listesi.ListCount - 1
Sonuc = Sonuc + Nz(CDbl(Me.grup1_listesi.Column(3, Sw)), 0)
Next Sw
Me.txtoplam = Sonuc
End Sub