AccessTr.neT

Dim d As Integer
Dim toplam As Long

For d = 0 To (liste45.ListCount) - 1
toplam = toplam +liste45.Column(12, d)
Next d

metin61.value = toplam

kırmızı renkli alanda Type mismatch hatası veriyor neden verebilir çözümü ne yardımlarınız için şimdiden teşekürler

Örneğinizi ekleyiniz...

örneğim baya bi karışık kod üzerinde yardımcı olamazmısınız kod bu

Liste45 in içeriğini görmeden yardımcı olamam.

Sadece Liste45 i ekleyin.

benim amacım liste45 te 12. sütundaki verileri toplayıp sonucu metin61 text kutusunda göstermek

liste45.Column(12, d) alanındaki değer sayı değildir. Yada Integer tipte saklanan veri değildir.
toplam satırının kodunu

toplam = toplam + val(liste45.Column(12, d))

şeklinde değiştirip deneyin çözülecektir.