выполнение запроса из vba

[mozjiqok]

Здравствуйте,

Пытаюсь выполнить из vba sql запрос следующим кодом:

kol_Chekov = "SELECT Count(чек) AS кол_чеков FROM (SELECT чек FROM товары, чеки " & _
"WHERE weekday(чеки.дата,2) In (select day from week where active=true) And " & _
"чеки.кол_гостей>=forms!form1.guest1 And чеки.кол_гостей<=forms!form1.guest2 And " & _
"чеки.время_откр>=forms!form1.since And чеки.время_закр<=forms!form1.till And " & _
"чеки.дата>=forms!form1.from And чеки.дата<=forms!form1.to And товары.чек=чеки.номер and " & _
"группа_меню='" & Me.cat1 & "' GROUP BY чек)"
Kol = CurrentProject.Connection.Execute(kol_Chekov).Fields(0)

При выполнении получаю ошибку "Отсутствует значение для одного или нескольких требуемых параметров"

Обычным запросом из Access этот sql выполняется без проблем.
Подозреваю, что дело в ссылках на поля формы, т.к. если из запроса убрать все условия с ссылками на поля формы, запрос выполняется из vba без ошибки.

Подскажите, пожалуйста, как обойти ошибку. Заранее спасибо.

[Myhaylo]

Конечно, ведь сервер ничего не знает об элементах управления, расположенных на формах где-то там (в MS Access). Поэтому, в текст запроса нужно включать непосредственные значения, а не ссылки на формы и их элементы управления (так, как Вы сделали с "группа_меню"):

kol_Chekov = "SELECT Count(чек) AS кол_чеков FROM (SELECT чек FROM товары, чеки " & _
"WHERE weekday(чеки.дата,2) In (select day from week where active=true) And " & _
"чеки.кол_гостей>=" & forms!form1.guest1 & " And чеки.кол_гостей<=" & forms!form1.guest2 & " And " & _
"чеки.время_откр>=" & forms!form1.since & " And чеки.время_закр<=" & forms!form1.till & " And " & _
"чеки.дата>=" & forms!form1.from & " And чеки.дата<=" & forms!form1.to & " And товары.чек=чеки.номер and " & _
"группа_меню='" & Me.cat1 & "' GROUP BY чек)"

[alvk]

Сообщение от Myhaylo

"чеки.дата>=" & forms!form1.from & " And чеки.дата<=" & forms!form1.to & "

Обращение к дате неверное, нужно так:

" чеки.дата>=#" & Format(forms!form1.[from], "mm\/dd\/yy") & "# " _
& " And чеки.дата<=#" & Format(forms!form1.[to], "mm\/dd\/yy") & "#"