Здравствуйте!
Мне необходимо открыть итоговый запрос, в котором в качестве условий выборки заданы поля на форме. Пишу стандартный код:
Dim dbs As DAO.Database Set dbs = CurrentDb() Dim NaborZap As DAO.Recordset Set NaborZap = dbs.OpenRecordset ("Zapros")
но выдется ошибка "Слишком мало параметров. Требуется 1". Как я понял, проблема в том, что запрос содержит ссылки на поля формы. Как только я их убираю или заменяю конкретными значениями, то проблема исчезает.
Подскажите как все таки открыть такой запрос.
Спасибо
Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim qd As QueryDef Set dbs = CurrentDb Set qd = dbs.QueryDefs("Zapros") qd.Parameters(0) = Forms!РПериод!ПолеСоСписком9 qd.Parameters(1) = Forms!РПериод!ПолеСоСписком11 qd.Parameters(2) = Forms!РПериод!ПолеСоСписком2 Set rst = qd.OpenRecordset() rst.MoveFirst Do rst.Edit