Создать запрос средствами VBA

[was3110]

Уважаемые форумчане! Подскажите, как в Access создать стандартный запрос (чтобы сохранился на вкладке Запросы под определенным именем) средствами VBA. Или чтобы изменить SQL текст у существующего запроса. Можно ли к такому существующему запросу обращаться как к объекту? Спасибо...

[Sparkman]

попробуйте с помощью функции "Запись макроса"

упс, тогда извиняюсь..

[was3110]

Так ведь Аccess не предоставляет возможности записи макросов VBA. У него свои макросы...

[OlegVE]

Здравствуйте

 Dim dbsCurrent As Database
 Dim qryTestCreate As QueryDef
 Dim qryTest As QueryDef

 Set dbsCurrent = CurrentDb
 Set qryTestCreate =  dbsCurrent.CreateQueryDef("Запрос0", "SELECT * FROM Таблица1;") ' Создаём запрос 

 Set qryTest = dbsCurrent.QueryDefs("Запрос1") ]") ' Обращаемся к существующему запросу
 MsgBox qryTest.SQL                     ' Смотрим что у нас в существующем запросе
 qryTest.SQL = "SELECT * FROM Таблица2;" ' Изменяем запрос
 MsgBox qryTest.SQL                     ' Смотрим что у нас в изменённом запросе
 qryTest.Delete "Запрос1"               ' Удаляем запрос при необходимости

До свидания

[was3110]

Спасибо огромное!!!