с помощью вот такой ф-ии можно определить существование любого обьекта в базе mdb :
Public Function IsObjectExists(MyObjectName As String, MyObjectType As Integer) As Boolean
Dim ID_MyObject As Long
ID_MyObject = Nz(DFirst("Id", "MSysObjects", "Type=" & MyObjectType & " AND Name=" & "'" & Trim(MyObjectName) & "'", 0)
If ID_MyObject <> 0 Then
IsObjectExists = True
Else
IsObjectExists = False
End If
End Function
где MyObjectName имя искомого запроса или формы , а MyObjectType тип обьекта:
-32768 форма ("-" отриц-е число)
-32766 макрос
-32764 отчёт
-32761 модуль
5 запрос
1 родные( не прилинков-е ) и системные таблицы
4 прилинкованные таблицы SQL
и т.д

2 параметра
MyObjectName имя искомого обьекта, а MyObjectType тип обьекта:

года 2 назад написала эту функцию для собственных нужд ещё для а97
описаловка мне не попадалась

а вчера буквально ей в ХП пользовалась

ты не внимательно посмотрел, это имена параметров в моей ф-ии
а в системных таб-цах имена такие как у всех - Name и Type.