MyTetra Share
Делитесь знаниями!
удалить запрос по типу
Время создания: 16.03.2019 23:43
Текстовые метки: VBA, DAO, QueryDefs.Delete, УДАЛИТЬ ЗАПРОС
Раздел: !Закладки - VBA - Access - DAO
Можно и так. Надо построить цикл по всей коллекции 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


Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования