AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Liste Kutusu Sütun Toplama

1 2 3 4 5 6 7 8
11/04/2023, 15:36

berduş

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:58

hnakis

(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.
11/04/2023, 16:19

berduş

sağa yaslama fonksiyonunuz veriyi metne çeviriyor olabilir
başka bir açıklamam yok maalesef
11/04/2023, 17:31

hnakis

(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ü.
11/04/2023, 17:37

berduş

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
11/04/2023, 18:43

hnakis

hata veriyor. çalışmayı küçülttüm ve ekledim.
1 2 3 4 5 6 7 8