ник: час
или вот ещё круче
Вопрос: Проверяет наличие таблицы как внутри базы, так и во внешней
Совет:
Public Function ExistsTable(strNameTable As String, Optional ByRef strResult As String = "") As Byte
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert INTO " & strNameTable & " SELECT * FROM " & strNameTable & " WHERE 0=1"
Select Case Err.Number
Case 0
ExistsTable = 0
strResult = "Таблица существует"
Case 3078
ExistsTable = 1
strResult = "Таблица отсутствует"
Case 3024, 3011
ExistsTable = 2
strResult = "Не найден файл"
Case 3044
ExistsTable = 3
strResult = "Указан ошибочный путь"
Case 3343
ExistsTable = 4
strResult = "Нераспознаваемый формат базы данных"
Case 3321
ExistsTable = 5
strResult = "Не задана база данных в строке подключения"
Case Else
ExistsTable = 6
strResult = "Неизвестная ошибка"
End Select
Err.Clear
DoCmd.SetWarnings True
End Function
============================================end================================