Validating Dates in Textboxes

[Trancedified]

Hello,

I tried this birthdate validation code but it still pops up a message box when I correctly enter a date in the same format of


Year-Month-Day

'Validating Date of Birth so the format should be Year-Month-Day
Private Sub txtDOB_Validate(Cancel As Boolean)
    If txtDOB.Text <> Format$("yyyy-MM-dd") Then
        MsgBox "The Date of Birth (DOB) must be of this format: 
        Year-Month-Day.", vbInformation, "Validation"
        txtDOB.TabIndex = 10        
    End If
End Sub

Any Suggestions? Thanks

chris

[ForgottenBlah]

If txtDOB <> Format(txtDOB, "yyyy-MM-dd") Then

That worked for me. (Change your IF statement to that one).

[MartinLiss]

Let me suggest that you change the error message from

MsgBox "The Date of Birth (DOB) must be of this format:
Year-Month-Day.", vbInformation, "Validation"


to

MsgBox "The Date of Birth (DOB) must be of this format:
yyyy-mm-dd.", vbInformation, "Validation"

That way people won't wonder why 03-11-01 doesn't work.

[Trancedified]

great it worked