Public Function IsTable(ZP_NameTable As String) As Long
' проверка на наличие определенной таблицы
' ZP_NameTable - наименование таблицы
Application.Echo False 'отключаем обновление экрана
On Error Resume Next
DoCmd.OpenTable ZP_NameTable
If Err.Number = 0 Then
DoCmd.Close acTable, ZP_NameTable
Else
IsTable = Err.Number
End If
Application.Echo True
End Function 'IsTable
|