textbox çarpma problemi

[kemal turan]

merhaba,
ek dosyada ürün ve malz.girişi butonuna bastığımızda çıkan userformda giren miktar ile birim fiatı girdiğimizde çarpım sonucu hata veriyor.
örnek;
giren miktar =27,600 kg.
birim fiatı =15 tl olarak yazdığımızda sonuç 414,00 bu doğru
Fakat;
birim fiatı =16 tl olarak yazdığımızda sonuç 4.416,00 olarak çıkıyor.
başka bir deyişle 85 olsa doğru 86 olsa yanlış çıkıyor.45 olsa doğru, 46 olsa yanlış çıkıyor.
Sorunun çözümü için yardımlarınızı bekliyorum.
Selametle kalın.

 

[Levent Menteşoğlu]

İlgili kodu aşağıdaki ile değiştirin. Ayrıca textbox6'ya yazdığınız kodları silin.

TextBox6.Value = Format(TextBox4 * TextBox5, "#,##0.00")

 

[kemal turan]

Levent hocam merhaba,
Çok teşekkür ederim.Bir ufak sorunum çıktı.Textbox 3 e veri girildiğinde (kdv oranı),Textbox 7 de kdv tutarını hesaplıyor.Textbox 9 da ise textbox 3ile textbox6 yı toplayıp genel toplamı bulmaya çalıştım. Aşağıdaki şekilde düzenledim olmadı.
Bunu nasıl yapabiliriz.
Emeğiniz için teşekkür ederim.


Private Sub TextBox3_Change()
If TextBox6.Text = "" Or TextBox3.Text = "" Then Exit Sub
TextBox7.Value = Format(TextBox6 * TextBox3, "#,##0.00") / 100
TextBox9.Value = Format(TextBox3 + TextBox6, "#,##0.00")
End Sub

 

[kemal turan]

Merhaba Levent hocam,
Forumdan yaptığım araştırma ile aşağıdaki gibi kodu revize ettim.
Sorunum çözüldü.
Teşekkür eder, hayırlı günler dilerim.
Selametle kalınız.

Private Sub TextBox3_Change()
If TextBox6.Text = "" Or TextBox3.Text = "" Then Exit Sub
TextBox7.Value = Format(TextBox6 * TextBox3, "#,##0.00") / 100
TextBox9.Text = CDbl(TextBox7.Value) + CDbl(TextBox6.Value)
End Sub

 

[kemal turan]

merhaba levent hocam,
oldu dedim ama olmamış,
Giren miktar ve tutarı 3 basamaklısıfırlı rakam girdiğimde problem olmuyor.
Rakamlar sıfırdan büyük ve 3,4 basamaklı olduğundakdv tutarı ve genel toplam sapıtıyor.
Dosyaya tekrar bir baksanız.
Teşekkür ederim

 

[Trilenium]

KDV kodunu aşagıdaki gibi degiştiriniz

TextBox7.Value = Format(TextBox6 * TextBox3 / 100, "#,##0.00")

 

[kemal turan]

Merhaba Sn.Trilenium,
Çok Teşekkür ederim.
Selametle kalınız.