VBA передать параметр в запрос на выборку и отобразить результат запроса на форме

[Сергей089]

Здравствуйте. У меня есть запрос на выборку с параметром. Использовать его неудобно. Когда его запускаешь, появляется маленькое диалоговое окно с Edit-ом для ввода параметра. Расскажите, пожалуйста, как сделать форму с выпадающим списком для параметра, кнопкой для запуска и Grid-ом для отображения записей.
Нашел похожую тему как програмно передать параметр в запрос на выборку, но тема там, кажется, не раскрыта.

[Сергей089]

Попробовал сделать как здесь Как запускать запросы из VBA

Private Sub Кнопка0_Click()
Dim q As QueryDef
Set q = CurrentDb.QueryDefs("Запрос2")
q.Parameters(0).Value = Me.ПолеСоСписком2.Value
q.Execute
End Sub

Но на

q.Execute

появляется ошибка 3065 Невозможен запуск запроса на выборку, хотя было написано, что для Select подходит.

[shanemac51]

Сообщение от Сергей089

q.Execute.

ПОПРОБУЙТЕ ТАК

DoCmd.OpenQuery "Запрос2"

[Сергей089]

shanemac51, так не подходит. Результат открывается в новом окне.

[Сергей089]

Беру свои слова обратно, когда написал, что в теме как програмно передать параметр в запрос на выборку не раскрыт вопрос. Разобрался, что предлагал Евгений в той теме. Вот получился рабочий код

Private Sub Кнопка0_Click()
Me.RecordSource = "SELECT Предприниматели.ФИО FROM Предприниматели WHERE id=" & Me.ПолеСоСписком2.Value
End Sub

Но тогда придется все запросы писать в модуле, что не сильно радует. Как Me.RecordSource присвоить готовый запрос?

[Сергей089]

Эх, исследование справки показало, что кроме String в RecordSource ничего не запишешь