Toplama işlemi!

[atasoft]

merhaba arkadaşlar yeniyim kusura bakmayın toplama işlemi ile ilgili bir sorum olacak. UserForum'da ürünleri listelediğim zaman yanındaki texbox'a fiyatları atıyor ama en altta olan texbox'a toplamını çıkarmak istediğim zaman hata veriyor 14 ürün var hepsini seçmem gerekiyor tek bir ürünün fiyatını alamıyorum. yadığım kod bu:

Private Sub CommandButton6_Click()
TextBox19.Text = CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3) + CDbl(TextBox4) + CDbl(TextBox5) + CDbl(TextBox6) + CDbl(TextBox7) + CDbl(TextBox8) + CDbl(TextBox9) + CDbl(TextBox10) + CDbl(TextBox11) + CDbl(TextBox12) + CDbl(TextBox13) + CDbl(TextBox14)

End Sub

ve bu arada çıkan sonucun KDV oranını aynı commandButton'la başka textbox'a almam mümkünmü. Galiba biraz karışık oldu ama sorun bu herkese teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde açıklarmısınız.

 

[atasoft]

örnek resim

http://img218.imageshack.us/img218/3117/asdasdjb1.jpg

örenk resim burada yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. KDV de örneğin textbox20 ye yazılmıştır.

Private Sub CommandButton6_Click()
for a=1 to 14
if controls("textbox" & a)<>"" then toplam=cdbl(controls("textbox" & a))+toplam
next
textbox19 = toplam
textbox20=toplam*0.18
End Sub

 

[atasoft]

teşekkürler

Allah razı olsun herşey için çok teşekkürler.