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

Option Compare Database

Option Explicit

Function TableExists(tablName As String) As Boolean

Dim tabl As AccessObject

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

For Each tabl In CurrentData.AllTables

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

  If tabl.Name = tablName Then

       TableExists = True

      Exit Function

  End If

Next

TableExists = False

End Function