Why wont this work.... please help, going insane!

[Mr.Daines]

All i want is to control the format of the data input to a text box, ie; Date = dd/mm/yy, Time = 00:00, Reference = (maximum 6 digits, numbers only), Post code = #### ###.

Any ideas why the below keeps bringing up my msgbox?

If Me.TextBoxDate.Value <> Format(Date, "DD/MM/YY") Then
  MsgBox "Please enter Date in DD/MM/YY format."
  Me.TextBoxDate.SetFocus
  Me.TextBoxDate.Value = ""
  Exit Sub
End If

 

[Mr.Daines]

Try changing

If Me.TextBoxDate.Value <> Format(Date, "MM/DD/YY") Then
to
If Not IsDate(Me.TextBoxDate.Value) Then

Jonmo1,

You are the man!!!

Thanks.

RESOLVED

 

[Trevor G]

Look to change these lines

From

If Me.TextBoxDate.Value <> Format(Date, "MM/DD/YY") Then

To

If Not IsDate(Me.TextBoxDate.Value) Then

From

If Trim(Me.TextBoxTime.Value) = "" Then

To

If Not IsNumeric(Me.TextBoxTime.Value) Then