Textbox Date Validation

[proctk]

I need some code to validate how the date is entered in textbox on a userform.

Date formate must be dd-mmm-yy

 

[Norie]

protck

Why not just check a valid date has been entered and convert it required format?

I'm sure you could write code to check the format but I personally wouldn't do things that way.

For one thing you are restricting the user.

 

[HalfAce]

Hello Kevin,
Something like this should get you started.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Text) Then
    TextBox1.Value = ""
    Ln1 = "There was as error in the date entry." & vbNewLine
    Ln2 = "Please enter a valid date."
    Style = vbOKOnly
    Title = "Date entry error"
    MsgBox Ln1 & Ln2, Style, Title
  Else: TextBox1.Text = Format(TextBox1.Text, "dd-mmm-yy")
End If
End Sub

Hope it helps.

[EDIT:]
Pretty much what Norie is suggesting I guess.

 

[proctk]

Thanks for the code, that works perfect