Pass input

[Moxy1]

lets say I have the query:

SELECT *
FROM tblSample
WHERE tblSample.date Between [Begin Date] And [End Date];

when a user runs the query i want them to be prompted for the dates, which works.

question - Can i call this query from VBA and pass in values for these so that the vba is not prompted for the dates?

 

[PHV]

Have a look here:
faq701-6763

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Golom]

Assuming that you have the SQL stored as a query then

Dim db  As DAO.Database
Dim rs  As DAO.Recordset
Dim Qry As DAO.QueryDef

Set db = Currentdb()
Set Qry = db.QueryDefs("QueryName")

[COLOR=black cyan]' Set the date ranges you want here[/color]
Qry("Begin Date") = DateAdd("M", -1, Date())
Qry("End Date") = Date()

Set rs = Qry.OpenRecordset(dbOpenDynaset)