hi!
I m trying to use a format dd/mm/yyyy for entering date in textbox. If user enters format other than dd/mm/yyyy, as soon as the textbox losts its focus it gives a msg to user to enter date in correct format. I tried using following code but even if i give correct format it gives same msg as if it is not incorrect format.
Could anyone be able to correct it plz..

Private Sub txtDob_LostFocus()
If txtDob.Text <> "dd'/ 'MM' / 'yyyy" Then

MsgBox "Please! Mention the date of birth in dd/mm/yyyy format", vbInformation
txtDob.SetFocus
SendKeys "{Home}+{End}"

End If
End Sub

Use this....

MsgBox Format("10-11-06", "dd-mmm-yyyy")

Deepak..

Hi Ana

your condition: If txtDob.Text <> "dd'/ 'MM' / 'yyyy" Then means that:
user must wrote exact phrase "dd'/ 'MM' / 'yyyy" in textbox if he want to get correct behaviour of this condition. Other types means, that he see the message box.
Try to use the mask (like Access textbox) in this textbox (if you can), then will be great.

Peko

hi anju

use this code

Private Sub Text1_Validate(Cancel As Boolean)
    If IsDate(Format(Text1.Text, "dd/MMM/yyyy")) = False Then
        MsgBox "Error Message"
    End If
End Sub


i hope it will solve ur prob



Cheers :)

Ashu

Hi Ashu!!

Thanx for ur help
Your code works for validating the date if user enters characters on date of birth but if i put numbers e.g. 132435 in the textbox it accepts it and ignores the function.
any clue why is this happening?

thanx
anju