textboxlarda toplama

[udentr2002]

Arkadaşlar belki çok basit bir şey ama birtürlü doğru şeyi yapamadım saçma değerler veriyor sadece textbox2 ve 3'ü toplayıp textbox1 den çıkaracağım koduda yazmaya çalıştım ama olmadı ekli dosyada gönderiyorum yardım ederseniz sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

TextBox1.Text = Val(TextBox2) + Val(TextBox3) - Val(TextBox1)

 

[Korhan Ayhan]

Selamlar,

Ondalıklı sayılarla işlem yapacaksanız. Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    T1 = CDbl(TextBox1)
    T2 = CDbl(TextBox2)
    T3 = CDbl(TextBox3)
    TextBox1 = Format((Replace(T1, ".", ",") - T2 + T3), "#,##0.00")
End Sub

 

[udentr2002]

Cos_Control hocam

Şimdi oldu çok teşekkür ederim daha önce küsüratlı rakamları tam sayıya yuvarlıyordu elinize sağlık