Date Validation in textbox

[rksample]

Hi Friends,

I am struggling with a small code.

I have a text box in which date will be entered. I am using the following code to validate and format the date.

Private Sub txtTDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

    If IsDate(txtTDate.Value) Or txtTDate.Value > Date Then
        sDate = DateSerial(Year(Date), Month(Date), Day(Date))
        txtTDate.Value = format(txtTDate.Value, "dd/mm/yyyy")
        sDate = txtTDate.Value
    Else
        MsgBox ("You can't enter past date. Please modify!")
        txtTDate.SetFocus
        Exit Sub
    End If
    
End Sub

I expected it to return error if the date entered is less than Current(System's) date. This is not working. Please help me!

Regards,
Ravi.

 

[tlowry]

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:DoNotOptimizeForBrowser/> </w:WordDocument> </xml><![endif]--> Here’s my take on it.

Private Sub CommandButton1_Click()
Select Case IsDate(Me.TextBox1)
Case False
MsgBox "Not a valid date", vbCritical
Case Else
Select Case CDate(Me.TextBox1) < Now()
Case True
MsgBox "Date must be after " & Format(Now(), "mmm/dd/yy")
Case Else
MsgBox "Ta Dar"
End Select
End Select
SendKeys "+{TAB}"
End Sub

 

[rksample]

Thanks TLowry. It worked well. Only glitch is that Now() can't be used because that considers time as well and current date will not be accepted.

I replaced it with Date and everything is working fine. Once again thanks for your help.

Regards,
Ravi.