Form Alt toplamında hata mesajı oluşması?

[assenucler]

Forum dostları merhabalar;

Herkesin 19 Mayıs Gençlik ve Spor bayramını gönülden kutlarım.

Siteden indirdiğim dosyanın Form menüsüne örneğin Anakart veya diğer açılan kutulardan bir kaçından seçim yaptığımda, fiyatlar hizasındaki satıra otomatik geliyor fakat Form Fatura toplamında "Hata" çıkıyor, oysa girilen her kalem sonrası toplam hanesi artmalı.

Bu "hata" mesajı tüm form alanları doldurulduğunda çıkmıyor.

Uğraşmama karşın, hata mesajını kaldıramadım. Sorunun neden kaynaklandığını bir türlü bulamadım. Düzeltir ve açıklama yaparsanız sevinirim.

Yardımınız için önceden teşekkürler.

 

[gulsum1]

cevap

Function hesap()
TOPLAM = 0
İ = 0
W = 0

If T&#220;RK&#199;E1YAZ.Value <> "" Then
say&#304;1 = T&#220;RK&#199;E1YAZ.Value
TOPLAM = TOPLAM + say&#304;1
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E2YAZ.Value <> "" Then
say&#304;2 = T&#220;RK&#199;E2YAZ.Value
TOPLAM = TOPLAM + say&#304;2
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E3YAZ.Value <> "" Then
say&#304;3 = T&#220;RK&#199;E3YAZ.Value
TOPLAM = TOPLAM + say&#304;3
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E1S&#214;Z.Value <> "" Then
say&#304;4 = T&#220;RK&#199;E1S&#214;Z.Value
TOPLAM = TOPLAM + say&#304;4
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E2S&#214;Z.Value <> "" Then
say&#304;5 = T&#220;RK&#199;E2S&#214;Z.Value
TOPLAM = TOPLAM + say&#304;5
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E3S&#214;Z.Value <> "" Then
say&#304;6 = T&#220;RK&#199;E3S&#214;Z.Value
TOPLAM = TOPLAM + say&#304;6
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E1&#214;D.Value <> "" Then
say&#304;7 = T&#220;RK&#199;E1&#214;D.Value
TOPLAM = TOPLAM + say&#304;7
&#304; = &#304; + 1
End If
If T&#220;RK&#199;E2&#214;D.Value <> "" Then
say&#304;8 = T&#220;RK&#199;E2&#214;D.Value
TOPLAM = TOPLAM + say&#304;8
&#304; = &#304; + 1
End If
bakiye.Value = TOPLAM
sat&#305;&#351;adedi.Value=&#304;&" "&"adet sipari&#351; edilmi&#351;tir"

End Function

bu benim not ortalama kodum ama senin dedi&#287;in i&#351;leme &#231;evirdim veri girdi&#287;in alanlar dolu ise onu toplama ekler ve sayar sonrada senin istedi&#287;in yere yazar nas&#305;l kullanacaks&#305;n T&#220;RK&#199;E2&#214;D bu ve buna benzeyenler senin anakart i&#351;lemci gibi metin kutular&#305;n kodu &#231;a&#287;&#305;rma olay&#305;na gelince istersen bir d&#252;&#287;me ekleyip b&#252;t&#252;n verileri girdikten sonra t&#305;klay&#305;nc hesaplar istersen b&#252;t&#252;n metin kutular&#305;nda kodu &#231;a&#287;&#305;rarak i&#351;lemi her metin kutusundaki de&#287;i&#351;imde yapabilirsin nas&#305;l olacak d&#252;&#287;mede istersen t&#305;klama olay&#305; k&#305;sm&#305;na koda girmeden =Hesap()

yazars&#305;n yada kodda Call hesap() yazars&#305;n metin kutular&#305; i&#231;inde ge&#231;erli

 

[assenucler]

Cevap

Sn. gulsum1

Süpersiniz, yanıtınız için sonsuz teşekkürler. İyi hafta sonları.