Параметр запроса

[Kot070]

Добрый день, как по кнопке передать параметр в запрос?
Выходит ошибка 3065 невозможен запуск запроса на выборку.
Пробовал заменять execute на DoCmd.RunSQL все равно ошибка, мне нужно именно передать параметр в запрос и потом его открыть.
OpenQuery тоже не помог.

Private Sub Кнопка74_Click()

    Dim q As DAO.QueryDef
    Set q = CurrentDb.QueryDefs("tst")
    q.Parameters("[значение]").Value = 1
    q.Execute
    q.Close: Set q = Nothing

End Sub

[Aleksandr H.]

Здесь читали?

[Kot070]

да, и если сделать DoCmd.OpenQuery "запрос" все равно выходит окошко введите значение, переданный параметр не сохраняется почему то

[shanemac51]

выложите текст запроса --вы вероятно ошибочно обозвали параметр или в запросе или в коде

[Kot070]

Текст запроса

SELECT *
FROM [month]
WHERE код=[значение];

[Aleksandr H.]

вроде как execute не позволяет запускать SELECTы. Смотря для чего вам нужен этот запрос из vba, может следует рассмотреть вариант записи результатов в RecordSet?