AccessTr.neT

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?

(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.

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

(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ü.

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

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