Time and Err13 Type Mismatch

[parry]

Hi, I have a textbox on a form that has the system time entered as a default value via the UserForm_Activate event...

txtTime.Text = Format(Time, "hhmmss")

Im allowing Users to overtype this with their own time but if they enter an incorrect time then runtime err 13 Type Mismatch appears.

Whats the easiest way of preventing incorrect times being entered into the textbox so I avoid the runtime error.

thanks

 

[Ivan F Moala]

On 2002-08-26 15:34, parry wrote:
Hi, I have a textbox on a form that has the system time entered as a default value via the UserForm_Activate event...

txtTime.Text = Format(Time, "hhmmss")

Im allowing Users to overtype this with their own time but if they enter an incorrect time then runtime err 13 Type Mismatch appears.

Whats the easiest way of preventing incorrect times being entered into the textbox so I avoid the runtime error.

thanks

Hi Parry, what code are you using now for the Textbox ?? to mask for Time input.

 

[parry]

Hi Ivan, thanks for the reply. I believe the trim statement I had on the Change event was causing these errors so I removed them. I used trim to prevent spaces being entered.

To validate the field I decided to first check the textlength property was 6 digits then done mid string checks on hh mm & ss separately (to check hr not > 24 etc).

Seems to be working OK now.

cheers
Parry