Validate UserForm textbox to accept only the correct date format

[SSF1590]

I am looking for a code that allows my textbox5 in my UserForm to accept or validate only the correct date format mm/dd/yyyy as input. Is it possible to do this? I’ve been doing some research but I can find something I can make work. Can I please have your help?

 

[mikerickson]

There is a reason that many (most?) forms have three controls to input Date, Month and Year seperatly.

Its possible to test an entry to see if it is a date.

Private TextBox1_BeforeUpdate(ByVal CancelAs MSForms.ReturnBoolean)
    With TextBox1
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "mm/dd/yyyy")
        Else
            MsgBox "Not a date"
            Cancel = True
        End If
    End With
End Sub

 

[SSF1590]

There is a reason that many (most?) forms have three controls to input Date, Month and Year seperatly.

Its possible to test an entry to see if it is a date.

Private TextBox1_BeforeUpdate(ByVal CancelAs MSForms.ReturnBoolean)
    With TextBox1
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "mm/dd/yyyy")
        Else
            MsgBox "Not a date"
            Cancel = True
        End If
    End With
End Sub

Hello, thank you for your contribution on this. Is the private missing sub in the above code?

 

[SSF1590]

There is a reason that many (most?) forms have three controls to input Date, Month and Year seperatly.

Its possible to test an entry to see if it is a date.

Private TextBox1_BeforeUpdate(ByVal CancelAs MSForms.ReturnBoolean)
    With TextBox1
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "mm/dd/yyyy")
        Else
            MsgBox "Not a date"
            Cancel = True
        End If
    End With
End Sub

I have added sub to the line Private Sub TextBox1_BeforeUpdate(ByVal CancelAs MSForms.ReturnBoolean) but it gives me syntax error in the entire line.

 

[mikerickson]

It needs a space between Cancel and As

 

[SSF1590]

It needs a space between Cancel and As

It is working perfectly! Thank you very much for your help on this. Would it be possible to highlight the wrong date entered (textbox background) with a different color so it is obvious for the user where the error is?

 

[mikerickson]

The cursor is still in the textbox with the bad data.

 

[SSF1590]

I can see that. I was just wondering if something more visible could be added.

 

[mikerickson]

Private TextBox1_BeforeUpdate(ByVal CancelAs MSForms.ReturnBoolean)
    With TextBox1
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "mm/dd/yyyy")
            .BackColor = vbWhite
        Else
            MsgBox "Not a date"
            .BackColor = vbYellow
            Cancel = True
        End If
    End With
End Sub

 

[SSF1590]

Thank you very much. It works perfectly.