Using a Parameter Query: from VB.

[Ed Warren]

Query1

PARAMETERS DateStart DateTime, DateEnd DateTime;
SELECT DISTINCT FinalSchedule.Client_ID, FinalSchedule.CData
FROM FinalSchedule
WHERE (((FinalSchedule.Date) Between [DateStart] And [DateEnd]))
ORDER BY FinalSchedule.CData;

How does one call Query1 with parameters from VBA?

Thanks, Ed Warren.

 

[Douglas J. Steele]

Something like:

Dim qdfCurr As DAO.QueryDef
Dim rsCurr As DAO.Recordset

Set qdfCurr = CurrentDb().QueryDefs("Query1")
qdfCurr.Parameters("DateStart") = dtmStartDate
qdfCurr.Parameters("DateEnd") = dtmEndDate
Set rsCurr = qdfCurr.OpenRecordset

 

[Ed Warren]

Thanks, I was missing the .Parameter concept.

Ed Warren

Something like:

Dim qdfCurr As DAO.QueryDef
Dim rsCurr As DAO.Recordset

Set qdfCurr = CurrentDb().QueryDefs("Query1")
qdfCurr.Parameters("DateStart") = dtmStartDate
qdfCurr.Parameters("DateEnd") = dtmEndDate
Set rsCurr = qdfCurr.OpenRecordset

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Query1

PARAMETERS DateStart DateTime, DateEnd DateTime;
SELECT DISTINCT FinalSchedule.Client_ID, FinalSchedule.CData
FROM FinalSchedule
WHERE (((FinalSchedule.Date) Between [DateStart] And [DateEnd]))
ORDER BY FinalSchedule.CData;

How does one call Query1 with parameters from VBA?

Thanks, Ed Warren.