This is my third post for this topic. Think I'm almost there.
For those that have helped me get this far, thank you.
I need to add / modify the code below to check for international date format and prompt the user to reenter the data in the format mm/dd/yyyy
For example if the user enters 25/1/07 (International format dd/m/yy) the value that gets stored in my table is 1/7/2025
I tried various attempts at checking to make sure the first two digits were less than 12 with no luck.
Assistance is greatly appreciated.
Private Sub Txt_Date_Opened_BeforeUpdate(Cancel As Integer)
If Not IsDate(Nz(Me.Txt_Date_Opened, "foo")) Then
MsgBox "Please enter a valid date in the format mm/dd/yyyy"
Cancel = True
Else: Me.Txt_Dt_Opened_Bound = Me.Txt_Date_Opened