Можно и так. Надо построить цикл по всей коллекции QueryDefs, сравнить с
известным типов запросов Update, это тип=48, удалить их и обновить
коллекцию QueryDefs. Цикл надо строить в обратном порядке от большего
номера к меньшему.
Visual BasicВыделить код |
1 2 3 4 5 6 7 8 9 10 11 12
| 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 Next db.QueryDefs.Refresh 'Обновление все коллекции запросов End Sub
|
|