Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Liste Kutusundaki Tutarların Toplamını Almak

Allback
Allback
Access Cevaplanmış Soruları
1
984

Liste Kutusundaki Tutarların Toplamını Almak

Çözüldü #1
Allback
Uzman
Allback
Bul
Uzman
Adı Soyadı: Er.... Er....
Yaşı: 41
Konum: Kocaeli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 12/05/2024,23:11
Yorumları: 316
Konuları: 39
Kayıt Tarihi: 16/11/2011
Teşekkür Puanı: 27
Mesleğiniz: Yönetici
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.
.rar liste_kutusu_toplama.rar (Dosya Boyutu: 89,13 KB | İndirme Sayısı: 7)
Cevapla
#2
Allback
Uzman
Allback
Bul
Uzman
Adı Soyadı: Er.... Er....
Yaşı: 41
Konum: Kocaeli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 12/05/2024,23:11
Yorumları: 316
Konuları: 39
Kayıt Tarihi: 16/11/2011
Teşekkür Puanı: 27
Mesleğiniz: Yönetici
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da