Функция проверки существования таблицы или запроса в текущей базе данных

Аргументы: strObjName - имя объекта, strObjType - тип проверяемого объекта
Назначение: Проверяет существует ли таблица или запрос с именем strObjName в текущей базе данных
Возвращает: Результат: True - обект существует False - обьекта с таким именем нет

Public Function ObjExists(strObjType As String, strObjName As String) As Boolean
On Error Resume Next
Select Case strObjType
  Case "Table"
      ObjExists = (CurrentDb.TableDefs(strObjName).Name = strObjName)
  Case "Query"
      ObjExists = (CurrentDb.QueryDefs(strObjName).Name = strObjName)
  Case Else
      ObjExists = (CurrentDb.Containers(strObjType & "s").Documents(strObjName).Name = strObjName)
End Select
Err.Clear
End Function