Using a Inputbox in a filter for a report (1 Viewer)

[DanG]

I want to have the user supply the date when an inputbox appears when the report is run.
Here is what I have:

Private Sub Report_Open(Cancel As Integer)

Dim inputdate As Date
inputdate = InputBox("Enter Date Criteria")

Me.Filter = "date >='& # inputdate # '"
Me.FilterOn = True
End Sub

I am close but not quite there.
Would love help....Thank you

 

[boblarson]

use

Me.Filter = "date >='#" &  inputdate & "#'"

instead

 

[DanG]

Much closer thank you!
I now get an error "Data Type Mismatch in Criteria Expression"

My table, query and report all have the date field setup as a date/time data type.

And in the "Properties" here is how the variable getting passed to the "Filter" reads: "date >='#8/3/2006#'

Too strange.
Thanks for the syntax help, I never quite understand how to use quotaion marks.

 

[DanG]

Got it!!!

[B]'[/B]#" &  inputdate & "#[B]'[/B]"

Since I am using the # I do not need the single '

I'm learning while I'm earning...again thank you very much.