sayın üyeler, kıymetli ustalar;

forumdaki 2 adet örneği kullanarak liste kutusu sütun toplama işlemini yapmak istedim ancak sonuç alamadım.

formun açıldığında olayına;

dim say as integer
Metin1=0
for say=0 to liste1.listcount
Metin1=Metin1 + Liste1.column(2)
Next

Metin2=liste1.listcount -1

kodunu koyduğumda işlemi yapıyor bazan. ancak ben başka bir listeden kayıt seçtiğimde süzülen listede (Liste1) sütunun toplamasını yapmak istiyorum. kodu tıklanma olayına koyduğumda kayıt sayısı alıyorum ancak sütun toplamını alamıyorum.

2 kodu kullandığımda;

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


*****Sonuc = Sonuc + Nz(CDbl(Me.Liste11.Column(8, Sw)), 0)

kısmında hata mesajı veriyor.

Yardım edebilirseniz sevinirim.

teşekkürler. saygılar.