MS Access | Объекты | Запрос: проверка существует ли запрос?

Option Compare Database

Option Explicit

Function QueryExists(QueName As String) As Boolean

Dim que As AccessObject

'объявляем всегда когда работаем с объектами БД

For Each que In CurrentData.AllQueries

'используем CurrentData, т.к. работаем с таблицами. То же относится и к таблицам

  If que.Name = QueName Then

       QueryExists = True

      Exit Function

  End If

Next

QueryExists = False

End Function