удалить запрос по типу

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: VBA, DAO, QueryDefs.Delete, УДАЛИТЬ ЗАПРОС

Раздел: Разные закладки - VBA - Access - DAO

Запись: xintrea/mytetra_db_adgaver_new/master/base/1530977426khujz9lijy/text.html на raw.githubusercontent.com

Можно и так. Надо построить цикл по всей коллекции QueryDefs, сравнить с известным типов запросов Update, это тип=48, удалить их и обновить коллекцию QueryDefs. Цикл надо строить в обратном порядке от большего номера к меньшему.

Visual BasicВыделить код

Sub DelUpdQuery()

Dim db As DAO.Database, qdf As QueryDef, i

Set db = CurrentDb

For i = db.QueryDefs.Count - 1 To 0 Step -1 'Цикл по коллекции запросов

Set qdf = db.QueryDefs(i) 'Создание вспомогательного объекта коллекции

Debug.Print qdf.Name, qdf.Type 'Распечатка имен запросов и их типов

If qdf.Type = 48 Then 'Проверка на нужный тип запросов

db.QueryDefs.Delete qdf.Name 'Удаление объекта из коллекции

End If

db.QueryDefs.Refresh 'Обновление все коллекции запросов

End Sub

Так же в этом разделе:

MyTetra Share v.0.67