BeforeUpdate event to Force TextBox Value

[AnthonyWB]

Hello everyone. How can I use the BeforeUpdate of a textbox to force the textbox to only accept certain values in this case short hand dates: mm/dd/yyyy?

[srpinaz]

You can try this:

Private Sub Textbox_BeforeUpdate()
If Textbox.Value = "" Or Textbox.Text <> Format(Textbox.Text, "mm-dd-yyyy") Then
    MsgBox ("Enter a Valid Expiration Date (mm-dd-yyyy)")
    Textbox.Value = ""
    Cancel = True
    Textbox.SetFocus
    Exit Sub
Else
    'What to do (if anything) if valid.
End if
End Sub

[jeffreybrown]

Hi srpinaz,

Not sure Anthony is still waiting for an answer to this thread! However, if he is, his project is awfully delayed after 9 years. Anyway, please use code tags when posting code.