Date Error Checking

[scotball]

I am implementing some error checking in a form and want to ensure that the user cannot put in dates that are in the future or where Session Date is before DOB...here's my code:

If CDate(SessionBox.Value) > Format(Date$, "dd/mm/yyyy") ThenMsgBox "Session Date cannot be in the future, please check and amend!"", vbExclamation"
Exit Sub
End If


If CDate(SessionBox.Value) < CDate(DOBTextBox.Value) Then
MsgBox "Session cannot be before DOB, please check and amend!", vbExclamation
Exit Sub
End If


If CDate(DOBTextBox.Value) > Date$ Then
MsgBox "DOB cannot be in the future, please check and amend!"", vbExclamation"
Exit Sub
End If

When I try to complete the form and hit ok I get and error. When i debug it highlights the first line of code above with the message: "Runtime Error 424, Object required".

Does the order in which the data is inputted matter or what could be causing this not to run correctly?

 

[Norie]

Do you definitely have control with the name SessionBox?

PS When comparing dates you shouldn't use Format as it returns text and you won't get a proper comparison.

PPS What is Date$ in the code?

 

[scotball]

Hey Norie,

What do you mean "control with the name SessionBox"?

I am trying to use Date/Date$/Now() to stop people entering a date in the future i.e. Session date is next month or DOB is next month.

I only used Date$ as my first attempt at writing this code.

Ideally when the user types in the DOB - I want the code to check that it's not today or newer. Similarly I want Session date to be > than DOB but < today

 

[Norie]

I'm assuming by form you mean a userform?

If so is SessionBox a control, e.g. textbox, on that form?

 

[scotball]

sorry, yes it's a userform - SessionBox is a textbox.

I've inherited this file and spotted a bunch of improvements - this being one of them

 

[Norie]

One improvement I would suggest is not to use a variable name like Date$.

VBA has a function called Date which returns the current date, so not a good candidate for the name of a variable.

 

[scotball]

I've tried both Date, Date$ (saw that on another board) and now() - to no avail

 

[Norie]

What do you mean?

Are you still getting the error you described in your original post or are you having trouble with something else?

 

[nikio8]

Try placing
Msgbox 1
2
3

In those if statements. Quite likely format mishmatch.

 

[scotball]

I worked it out - it was SessionsBox not SessionBox - Me = idiot