Переход от формы к запросу в Access / SQL / VB

Question

Access 2007 / SQL / VB У меня есть запрос:

SELECT Count(*) AS CountOfCR1
FROM PData
WHERE (((PData.DestID)='CR1') And (((PData.AnswerTime)>=Starting)<Ending+1));

Я пытаюсь передать переменные, начинающиеся и заканчивающиеся вышеупомянутому запросу, из следующей формы:

Starting = StartDate & " " & StartTime
Ending = EndDate & " " & EndTime
On Error GoTo Err_Command5_Click
Dim stDocName As String
stDocName = "CountOfCR1 : Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click

Как я могу передать Начальный и Окончательный из моей формы на мой запрос?

Answer 1

Обычный способ сделать это - обратиться к форме в запросе:

SELECT Count(*) AS CountOfCR1
FROM PData
WHERE PData.DestID='CR1'
And PData.AnswerTime Between Forms!MyForm!StartDate + Forms!MyForm!StartTime
                     And Forms!MyForm!EndDate + Forms!MyForm!SEndTime

Почти всегда лучше использовать форму с источником записей, установленным для запроса, или строкой sql, а неоткрытие запроса.С формой вы можете использовать аргумент Where метода OpenForm.