запуск из vba запроса с параметрами

[BeerMaster]

Надо выполнить запрос с параметром из VBA. запрос сохранен в базе. делаю так:

Код: Выделить всё

Set q=CurrentDb.QueryDefs("q1")
Set prmTo = q.Parameters!to
prmTo = Me.SiteList.Column(0)
DoCmd.OpenQuery ("q1")

to - это параметр запроса, который устанавливается в запрос/параметры. q1 - это сам запрос.
Дык вот, при запуске появляется окошко, в котором этот параметр запрашивается. Зачем, я ведь его установил? Если так не возможно, то как передать из программы параметр сохраненному запросу? Спасибо.

[Naeel Maqsudov]

Я как-то раз задумался было над этим вопросом. Но ничего так и не придумал. Выводится это окно, и все тут!
Так что конструируйте запрос "на лету" с помощью конкатенации:

DoCmd.OpenQuery("....... where XXX=""" & Me.SiteList.Column(0) & """")

[mosquit]

Да конечно будет появляться, вы же задаете параметр в памяти, а открываете запрос опять из базы. Вот так ничего появляться не будет:

Код: Выделить всё

Set q = CurrentDb.QueryDefs("q1")
q.Parameters!to = Me.SiteList.Column(0)
Set r = q.OpenRecordset