Date Validation in Text Box

[melewie]

Hi all,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I am having problems with this have read a few threads but cant seem to get it to work I have a textbox on a user form and I want to make sure the date is in dd/mm/yy. If it isn’t I want a msg box to tell the user off!<o></o>
<o></o>
Any ideas appreciated.<o></o>
<o></o>
Thanks in advance.

 

[crimson_b1ade]

just use a calendar control so the user can just select the appropriate date.

 

[xld]

Forget the format, and just test or a date

Private Sub TextBox1_AfterUpdate()
    With Me.TextBox1
    
        If Not IsDate(.Text) Then
    
            MsgBox "Invalid date"
        Else
        
            .Text = Format(CStr(.Text), "dd/mm/yyyy")
        End If
    End With
        
End Sub

 

[melewie]

Thats what I did to start with but the "users" want to enter the dates manually and have a calander!!!!

 

[melewie]

Forget the format, and just test or a date

Private Sub TextBox1_AfterUpdate()
    With Me.TextBox1
 
        If Not IsDate(.Text) Then
 
            MsgBox "Invalid date"
        Else
 
            .Text = Format(CStr(.Text), "dd/mm/yyyy")
        End If
    End With
 
End Sub

wish I read this a few mins ago just made up a random thing wich seems to work but is slightly over the top

If (Not IsDate(FRM_managers_additional_access.tbox_date_recived.Value) Or _
    Mid(FRM_managers_additional_access.tbox_date_recived.Value, 3, 1) <> "/" Or _
    Mid(FRM_managers_additional_access.tbox_date_recived.Value, 6, 1) <> "/" Or _
    Len(FRM_managers_additional_access.tbox_date_recived.Value) <> 8) Then
MsgBox "Enter date in Format dd/mm/yyyy"
Exit Sub
End If