Time textbox on userform

[HighAndWilder]

Hi All

I am trying to implement a textbox on a form that enables a user to enter a time e.g. 070000. Once I can do that i will try to allow colons in the appropriate places.

In the first phase, if any other characters that 0-9 are entered they will be invalid and removed from the textbox.

I can detect the key that has been pressed using :

If KeyAscii < 48 Or KeyAscii > 57 Then ' 0-9
blnInvalidKey = True
End If

but I need to remove the invalid character from the textbox.

If I do this in the texttbox Change event then the Change event is triggered again which is not what I need.

How do others tackle such a requirement.

Thanks in anticipation.

 

[dmt32]

Hi,
Use the TextBox KeyPress event as it has the KeyAscii parameter which will allow you to limit which characters can be entered.

try this function:


Standard Module

Function TimeValuesOnly(ByVal KeyAscii As MSForms.ReturnInteger) As MSForms.ReturnInteger
    Select Case KeyAscii
    Case 48 To 57, 58
'valid time value entries [0-9] ":"
    Case Else
'cancel
        KeyAscii = 0
    End Select
    Set TimeValuesOnly = KeyAscii
End Function

Userform code page

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = TimeValuesOnly(KeyAscii)
End Sub

Note: Function will limit users to entering numeric 0-9 & colon characters only - function likely to fail if values which include other characters are pasted to textbox.


Suggest that you use the AfteUpdate event to format the textbox.

Hope Helpful

Dave