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

 



© 2018 | Анна Петросян | pashelp@yandex.ru