Такая проблема, при запуске программы из макроса autoexec вызывается функция Find_Table_Res1(), которая находится в модуле, и которая при отсутствии конкретной таблицы должна её создать. Но выскакивает ошибка 2580, что отсутствует данная таблица (то есть, она должна отсутствовать, но дальше должна открыться форма, в которой её можно создать). Что удивительно, точно такой же код в другой базе данных работает. Вот код на определение состояния таблицы, где 0 - таблицы нет, 1 - таблица пустая, 2 - таблица заполнена:

_{Public Function Tbl_Test2(ByVal Tbl_Name As String) As Byte
Dim R_Tbl As DAO.Recordset
On Error Resume Next
Set R_Tbl = CurrentDb.OpenRecordset(Tbl_Name, dbOpenTable)
If Err.Number = 0 Then
If R_Tbl.EOF Then
Tbl_Test2 = 1
Else
Tbl_Test2 = 2
End If
Else
Tbl_Test2 = 0
End If
Set R_Tbl = Nothing
On Error GoTo 0
End Function}

Вот код вызываемой функции:

_{Public Function Find_Table_Res1()
Select Case Tbl_Test2("Предприятия")
Case 0
Call MsgBox("Не найдено ни одной таблицы! Необходимо добавить предприятия!", vbApplicationModal, "Внимание!")
DoCmd.OpenForm "СоздатьТаблицу"
Case 1
Call MsgBox("Таблица предприятий пустая. Необходимо добавить предприятие!")
DoCmd.OpenForm "Предприятия1"
Case 2
DoCmd.OpenForm "Заставка"
End Select
End Function}

Не пойму, что не так)

http://www.sql.ru/forum/1158957/nalichie-ili-otsutstvie-tablic