TextBox format hatası

[teksen]

Arkadaşlar merhaba,

5 adet TextBoxım var.bunlarda sırasıyla Net,vergi,brüt,tahsil edilen ve kalan şeklinde hesap yaptıryorum.

Fakat değerleri girince doğru sonuçları vermiyor.

Kodlarda nasıl bir hata var acaba?


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, ("#,##.00"))
TextBox2 = (CDbl(TextBox1.Value) / 100) * 5
'**************
TextBox2 = Format(TextBox2, ("#,##.00"))
Me.TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)
T = Format(T, ("#,##.00"))

End Sub

Private Sub TextBox4_change()
TextBox4 = Format(TextBox4, ("#,##.00"))
TextBox5.Value = Val(TextBox3.Value) - Val(TextBox4.Value)
TextBox5 = Format(TextBox1, ("#,##.00"))

End Sub


Şimdiden teşekkür ederim.

Herkese iyi çalışmalar.

 

[Recep İpek]

Textboxlardaki bu tür hesaplalar iyi tasarlanmadığı zaman hatalı sonuçlar üretebilmektedir.

Çünkü bu alanlara girilen veriler metin olup, sonradan CDbl, Var, CDate vb. ile başka tür verilere çevrildiği için problem yaratmaktadır.

Bunun yerine benim önerim textboxlardaki verileri sayfadaki hücrelere alıp, hesaplamaları burada yaparak tekrardan
sonuclarını ilgili textboxlara almaktadır.

Bunu yine TextBox1_Exit olayı ile yapabilirsiniz.