FORCE decimal entry during edit

[sal21]

Have a txtbox1.
In textbo1, i need during entry, auto format number with decimal number, possible?

similar:
if i insert 1 automaticlly in textbox1 1,00, if i insert 11245 automaticlly in textbox1 1.124,50, ecc...

[HansV]

Like this:

Code: Select all

Private Sub TextBox1_AfterUpdate()
    If IsNumeric(Me.TextBox1) Then
        Me.TextBox1 = Format(Me.TextBox1, "#,##0.00")
    End If
End Sub