Textbox Formatı

[mustafakoker]

Arkadaşlar aşağıdaki kodu texbox1 e yazdığımda format yanlış çıkıyor

yani şöyle çıkıyor 37.488,00 tl

'textbox formatı
Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0.00 TL")
End Sub

olması gereken:3.748,8

deneme yanılma yöntemiyle bayağı uğrastım ama beceremedim

nasıl düzeltirim

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#.##0,00")
End Sub

 

[mustafakoker]

Sayın Hamitcan denedim fakat bu şeferde 37488,00000 ÇIKIYOR
Format(TextBox1, "#.#,") denediğimde ise 37488, çıkıyor

3.748,80 olması gereken

 

[Orion1]

Aşağıdaki kodu textboxın afterupdate olayına yazınız.

TextBox1 = Format(TextBox1, "#,##0.00 TL")

 

[mustafakoker]

Aşağıdaki kodu textboxın afterupdate olayına yazınız.

TextBox1 = Format(TextBox1, "#,##0.00 TL")

Teşekkür ederim.

 

[Orion1]

Teşekkür ederim.

Rica ederim.