Date Validation

[Exsert]

Okay, I have a text box which has the following date format dd/mm/yyyy but i want it so that the user cannot input a date which has already passed and not todays date.

So its the 28th today, so a user would only be able to choose 29th onwards.

Thanks for this

[TheSmileyCoder]

Hi Exsert.

What you need to look at is the BEFORE_Update event of your control. Assuming your CONTROL is named tb_Date (tb short for textbox):

Private Sub tb_Date_BeforeUpdate(Cancel as Integer)
  If Isnull(Me.tb_Date)
    'Nothing was entered, or value allready there was deleted
    Exit Sub
  End If
  If Not IsDate(me.tb_Date) Then
    Msgbox "The program did not recognize your entry as a valid Date"
    Cancel=True
    Exit Sub
  End If
  If Date>=Me.Tb_Date then
    Msgbox "You cannot select todays date, or a date that has allready passed"
    Cancel=True
    Exit Sub
  End If
 
End Sub

PLEASE take the time to understand what the code is doing, and learn from it, instead of blindly copying it. If you have questions, please ASK.