MS Access | Запустить запрос

На примере программно запускаем запрос (обычным способом и с обращением к объектам).

➢Обычный способ:

DoСmd.OpenQuery "QueryName", параметр View, параметр разрешений Add/Edit/ReadOnly

➢С обращением к объектам:

Dim mydb As Database

Dim myquery As QueryDef

Set mydb = CurrentDb()

Set myquery = mydb.QueryDefs("QueryName")

'если есть параметры в запросе

'myquery.Parameters('[ParameterName]') = [Forms]![Form1]![TextBox1]

'если есть динамические критерии в запросе

'myquery.Parameters('[Forms]![Form1]![TextBox1]') = [Forms]![Form1]![TextBox1]

myquery.Execute