AccessTr.neT

Tam Versiyon: TextBox Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba arkadaşlar (TOPLAM TUTAR) TextBox1 e küçük rakam girip ve (KDV ORANI) TextBox2 ye KDV oranını yazdığım zaman hesaplama yapıyor. TextBox1 e büyük rakam yazdıktan sonra KDV oranına rakam girdiğim zaman hata veriyor.

Örneğin TextBox1 e 5.000 ve TextBox2 ye %18 yazdığım zaman Hesaplama yapıyor.
TextBox1 e 10.000 ve TextBox2 ye %18 yazdığım zaman hata veriyor.
Private Sub TextBox3_Change()
deg1 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")
deg2 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", "")
TextBox4 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.00")
End Sub

Bu şekilde değiştirip denermisiniz...
Çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi oldu.