Run Query by dates

[BorisGomel]

Hi all of you.
Just a small problem that bothers me . I created the code below to run query based on two dates -beginning and end , but the query doesn't work and it isbugging a mistake 13 -no matching variance.I was able to do it in the report and I am trying to do it in query so that a user types two dates and query shows all records within these two dates .


Dim Criteria As String
If IsDate([qdate]) And IsDate([qdate1]) Then


Criteria = "[DateQB]>=# " & _
[qdate] & " # and [DateQB]<= #" _
& [qdate1] & " # "
DoCmd.OpenQuery "ChecksPrinted2011QB", acNormal, Criteria
End If

Thank you in advance for help.

The Best Regards,

BorisGomel

[pbaldy]

OpenQuery doesn't have a criteria argument like that (you have that in the position of the data mode argument). OpenForm and OpenReport both have a wherecondition argument, where your criteria should work. Info here:

BaldyWeb wherecondition

[BorisGomel]

Thank pbaldy,

The code works in the report.

Thank you again,

Best Regards.

BorisGomel

[pbaldy]

No problemo.