Textbox'ta rakam

[mami68]

Merhabalar.
Ben bu koda ne eklemem lazım ki textbox4 otomatikmen kalanı formda göstersin.Çünkü kaydet yaptıktan sonra gösteriyor ben ise önceden görmesini istiyorum.İyi çalışmalar

TextBox4 = Val(TextBox2) - Val(TextBox3)

 

[fedeal]

Private Sub TextBox2_Change()
deg1 = TextBox2
deg2 = TextBox3
If TextBox2 = "" Then deg1 = 0
If TextBox3 = "" Then deg2 = 0
TextBox4 = Replace(deg1 * 1 - deg2 * 1 , ".", ",")
End Sub

Private Sub TextBox3_Change()
TextBox2_Change
End Sub

Private Sub TextBox4_Change()
TextBox2_Change
End Sub

olacagında emin degilim formdan almıştım.bende işe yarıyor uyarlamaya calıştım.umarım olur iyi calışmalar.

 

[mami68]

Sayın fedeal
Ellerinize sağlık teşekkürler.İyi çalışmalar...

 

[fedeal]

rica ederim işinizi gördüyse sevindim

 

[Orion1]

Doğrusu aşağıdaki şekilde olacak.

Private Sub TextBox2_Change()
TextBox4 = Format(0, "0.00")
On Error Resume Next
TextBox4.Text = Format(CDbl(TextBox2.Text) - CDbl(TextBox3.Text), "#,##0.00")
End Sub

Private Sub TextBox3_Change()
Call TextBox2_Change
End Sub

 

[mami68]

Merhabalar
Sayın Evren bey
İlginize teşekkürler,şimdi textbox 2 ve 3'te çift sıfır çıkmıyor,Textbox4'te gibi onuda haledermisiniz.
İyi çalışmalar

 

[Orion1]

Merhabalar
Sayın Evren bey
İlginize teşekkürler,şimdi textbox 2 ve 3'te çift sıfır çıkmıyor,Textbox4'te gibi onuda haledermisiniz.
İyi çalışmalar

Aşağıdaki kodları ilave ediniz.

Private Sub TextBox2_AfterUpdate()
On Error Resume Next
TextBox2.Text = Format(TextBox2.Text, "#,##0.00")
End Sub

Private Sub TextBox3_AfterUpdate()
On Error Resume Next
TextBox3.Text = Format(TextBox3.Text, "#,##0.00")
End Sub

 

[mami68]

Sayın Evren bey

Ellerinize sağlık,teşekkürler.İyi çalışmalar

 

[Orion1]

Sayın Evren bey

Ellerinize sağlık,teşekkürler.İyi çalışmalar

Rica ederim.
İyi çalışmalar.