AccessTr.neT
Liste Kutusu Sütun Toplama - Baskı Önizleme

+- 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 Kutusu Sütun Toplama (/konu-liste-kutusu-sutun-toplama.html)

Sayfalar: 1 2 3 4 5 6 7 8


RE: Liste Kutusu Sütun Toplama - berduş - 11/04/2023

sadece Sonuc = Nz(Me.Liste94.Column(4, Sw), 0) kullandığınızda gösterilen değer ne?
bu arada sy() fonksiyonu kullanılmış galiba, o fonksiyon ne?


RE: Liste Kutusu Sütun Toplama - hnakis - 11/04/2023

(11/04/2023, 15:36)berduş yazdı: sadece Sonuc = Nz(Me.Liste94.Column(4, Sw), 0) kullandığınızda gösterilen değer ne?
bu arada sy() fonksiyonu kullanılmış galiba, o fonksiyon ne?

sadece Sonuc = Nz(Me.Liste94.Column(4, Sw), 0) olduğunda type mismatch hatası veriyor.

sy: sağa yasla modülü. listedeki verileri sağa yaslamak için kullandım.


RE: Liste Kutusu Sütun Toplama - berduş - 11/04/2023

sağa yaslama fonksiyonunuz veriyi metne çeviriyor olabilir
başka bir açıklamam yok maalesef


RE: Liste Kutusu Sütun Toplama - hnakis - 11/04/2023

(11/04/2023, 16:19)berduş yazdı: sağa yaslama fonksiyonunuz veriyi metne çeviriyor olabilir
başka bir açıklamam yok maalesef

teşekkürler sayın berduş. eklemeleri çıkarıp sadece tablodan veri alıncada hesaplamıyor.
aşağıdaki kodu kullanıyorum üst versiyon accessde oluyor.

Public Function Hesapla()
Dim I As Integer, J As Integer, ctl As Control
Set ctl = Forms![dddd]![Liste94]
J = ctl.ListCount - 1

listBirim = 0

For I = 1 To J 'for each row

listBirim = listBirim + ctl.Column(2, I)

Next I
Me.Metin104 = listBirim

End Function


access 2003 kullanıyorum. onunlamı alakalı anlayamadım.



üst versiyonlarda yaptığımda sorun çıkmıyor. nedenini bulamadım bir türlü.


RE: Liste Kutusu Sütun Toplama - berduş - 11/04/2023

Public Function Hesapla()
Dim I As Integer, J As Integer, ctl As Control
Set ctl = Forms![dddd]![Liste94]
J = ctl.ListCount - 1
listBirim = 0

For I = 1 To J 'for each row
listBirim =listBirim  & vbNewline & ctl.Column(2, I)
Next I
Me.Metin104 = listBirim

End Function
kodu bu şekilde denediğinizde hata veriyor mu?
Metin104 te ne yazıyor


RE: Liste Kutusu Sütun Toplama - hnakis - 11/04/2023

hata veriyor. çalışmayı küçülttüm ve ekledim.