AccessTr.neT

sayın forum üyeleri;

yaptığım çalışmada liste kutusu sütunlarını toplayıp form üzerindeki metin kutularına yazdırıyorum. ancak liste kutusunda bulunan kayıtlar boş değer olduğu zaman hata veriyor.

sorunu cözemedim. saygılar.

sağa yaslamak için boşluk kullanıldığı için Nz() işe yaramamış kodu aşağıdaki gibi düzenleyip dener misiniz

listİskonto = listİskonto + Val(ctl.Column(4, I))

listKDV = listKDV + Val(ctl.Column(5, I))

listGenel = listGenel + Val(ctl.Column(6, I))

listbirim = listbirim + Val(ctl.Column(3, I))

sadece para birimi olsa yetmez mi bu haliyle bir yer düzelse başka bir yer bozuluyor gibi

(13/04/2023, 18:47)berduş yazdı: [ -> ]sadece para birimi olsa yetmez mi bu haliyle bir yer düzelse başka bir yer bozuluyor gibi

sayın berduş ilginç bir durum oldu. değer olmayan kayıtlarda bir hata vermedi ama kayıtlardan birinde genel toplam 4.475,15 tl olması gerekirken 4,48 tl hesapladı. nedenini anlayamadım açıkcası.

haklısınız . sadece para birimi yapıcam herhalde. kodları yeniden yzıp gerekli düzenlemeleri yaptım ama bu kez boş değerlerde hata veriyor.

son olarak Liste94 listesi için sadece aşağıdaki sorgu kodunu önerebilirim
Not: işleme alınan tüm alanlar ayrı ayrı Nz() içine alındı dikkatimden kaçan alanlar olabilir

SELECT T_NUMUNEKAYIT.NumuneSıraNo, T_NUMUNEKAYIT.MüsteriNo, T_NUMUNEDETAY.NumuneNo

, Space$(13-Len(Format(Sum((nz([Fiyat],0))),'#,##0.00 ₺'))) & Format(Sum((nz([Fiyat],0))),'#,##0.00 ₺') AS [Birim Fiyat]

, Space$(13-Len(Format(Sum((0+nz([Fiyat],0)*nz([İskonto],0))),'#,##0.00 ₺'))) & Format(Sum((nz([Fiyat],0)*nz([İskonto],0))),'#,##0.00 ₺') AS [İskonto Tutar]

, Space$(13-Len(Format(Sum((((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))*nz([KDV],0)))),'#,##0.00 ₺'))) & Format(Sum((((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))*nz([KDV],0)))),'#,##0.00 ₺') AS [KDV Tutar]

, Space$(13-Len(Format(Sum((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))+((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))*nz([KDV],0))),'#,##0.00 ₺'))) & Format(Sum((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))+((nz([Fiyat],0)-(nz([Fiyat],0)*nz([İskonto],0)))*nz([KDV],0))),'#,##0.00 ₺') AS [Genel Toplam]

FROM T_NUMUNEKAYIT LEFT JOIN (T_NUMUNEDETAY LEFT JOIN T_BAKİYE ON T_NUMUNEDETAY.NumunedetayNo = T_BAKİYE.NumunedetayNo) ON T_NUMUNEKAYIT.NumuneSıraNo = T_NUMUNEDETAY.NumuneSıraNo

GROUP BY T_NUMUNEKAYIT.NumuneSıraNo, T_NUMUNEKAYIT.MüsteriNo, T_NUMUNEDETAY.NumuneNo

HAVING (((T_NUMUNEKAYIT.NumuneSıraNo) Like "*" & [Liste2] & "*") AND ((T_NUMUNEKAYIT.MüsteriNo) Like "*" & [Liste1] & "*"))

WITH OWNERACCESS OPTION;

sayın berduş. bu koddada sorun çıkıyor. diğerlerinde de küsuratları falan toplamıyor. dümdüz toplama yapıcam hata almamak için. şimdi onu çözmeye çalışıyorum. yardımlarınız ve sabrınız için çok teşekkür ederim.
saygılar.
iyi çalışmalar