Code For Resetting to Default Value

[batowl]

I have a form with numerous filters on it. When users push a "clear filters" button the following code is executed;

Private Sub Command71_Click()


Me.AgentFilter.Value = ""
Me.SettingFilter.Value = ""
Me.TransmissionFilter.Value = ""
Me.InvestigatorFilter.Value = ""
Me.Requery
End Sub

I do have two other filters based on start & end dates that are not included in the "clear filters" button yet because I do not want these filters to go blank, I want them to go back to their default values. Does anyone know what text I use to do this? (i.e. what text goes in Me.StartDate.Value = "????".

Thank you.

[batowl]

Ok, getting the start date to go to my default was easy enough (simply enter that date between the quotes).

But my default end date is whatever today is and Me.EndDate.Value = "Date()" does not work. Any suggestions?

[ssanfu]

I have a form with numerous filters on it. When users push a "clear filters" button the following code is executed;

Private Sub Command71_Click()
Me.AgentFilter.Value = ""
Me.SettingFilter.Value = ""
Me.TransmissionFilter.Value = ""
Me.InvestigatorFilter.Value = ""
Me.Requery
End Sub

I do have two other filters based on start & end dates that are not included in the "clear filters" button yet because I do not want these filters to go blank, I want them to go back to their default values. Does anyone know what text I use to do this? (i.e. what text goes in Me.StartDate.Value = "????".

Thank you.

AFAIK, only a form has the filter property available. So it sounds like you have some controls (text boxes, combo boxes, list boxes) that you are using as parameters in a query.

Does the [StartDate] control have the default property set?
If so, what is the default property set to?

Also, you don't need to add ".Value" since "Value" is the default property.
"Me.AgentFilter" is the same as "Me.AgentFilter.Value" and there is less typing

You should get in the habit of renaming the controls, including buttons, the describe what it is for. "Command71" really doesn't describe what the button does.... I would use something like:

"Private Sub ClearParameters_Click()"

[batowl]

So I was able to handle the start date defaulting to my start date very easily. (Just entered the default date in the quotes).

But I am still having trouble with the end date. The deafult date for the end date is whatever today is. So in setting up the text box with that default value, I simply entered Date(). But entering that into the code --Me.EndDate.Value = "Date() --- does not work. Suggestions?

[batowl]

Ok, answer is to leave quotes of out it, simply Me.EndDate.Value = Date