Custom Number Format

[adamsm]

Hi,

How could I write an after event code for the text box "txttime" so that when the user leaves the text box after writing four digit numbers the text box would display the values as follows;

For example when the user writes 1234, the numbers would be displayed as 12:34.

Any help on this would be kindly appreciated.

Thanks in advance.

 

[Jonmo1]

Perhaps this, adjusting textbox name accordingly

Private Sub TextBox1_LostFocus()
Me.TextBox1.Value = Format(Me.TextBox1.Value, "00\:00")
End Sub

 

[adamsm]

Thanks for the help.

In a situation if the user writes the time for example 06:01 as 61 and leaves the textbox it displays the time as 00:61.

How could I avoid this or create a message saying that the user have to enter time in the 24 hour format as 00:00.

I hope I've made my question clear.

Any help on this would be kindly appreciated.

 

[arlene_fool]

have you thought of using data validation, under input message you can put in instructions, so whenever someone mouse's over or tabs into that square a little pop up shows with instructions

 

[Jonmo1]

Perhaps

If Instr(1, Me.Textbox1.Value, ":") = 0 Then
    Me.TextBox1.Value = Format(Me.TextBox1.Value, "00\:00")
End If

 

[adamsm]

Thanks for the help. I do really appreciate it.