Using a Parameter Query: from VB.

E

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.
 
D

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
 
E

Ed Warren

Thanks, I was missing the .Parameter concept.

Ed Warren
Douglas J. Steele said:
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)


Ed Warren said:
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.
Click to expand...
Click to expand...
 
Top