ник: час
или вот тоже вариант неплохой
Вопрос: Функция проверки существования таблицы или запроса в текущей базе данных
Совет:
Аргументы: 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