Textbox : How to set it in the format 0,00

[francois.lemarie]

Hello,

When users are entering data in the textbox named CBestimatedFCV, I want :
- they can just enter a number (exemple : 1111)
- the number be viewed automatically with one coma and two decimals (in the previous example : 1111,00
- if there is no number, a message indicate "Please insert a number"

Thanks !

 

[machopicho]

Hi!
You need two sub.

First:

Private Sub CBestimatedFCV_Change()
If IsNumeric(CBestimatedFCV.Text) = False Then
MsgBox ("Please, insert a number!")
End If
End Sub

Second:

Private Sub CBestimatedFCV_LostFocus()
CBestimatedFCV.Value = Format(CBestimatedFCV.Value, "0.00")
End Sub

I hope to have helped you.

 

[francois.lemarie]

Thank you Macho Picho.