on error resume next
CurrentDb.TableDefs.Delete  "Table1"  

On error resume next 
currentproject.connection.execute  "DROP TABLE table_name"  
On error goto  0  

On error resume next 
CurrentDb.TableDefs.Delete  "Table1"  
On error goto  0  

Dim myRecordCount As Integer

myRecordCount = DCount( "Name" ,  "MSysObjects" ,  "Name = "  "Имя таблицы"  " " ) 

If myRecordCount <>  1  Then

Ваша процедура

end if

function TableExist(TableName as string) as boolean 
dim tdf as tabledef 
dim flag as boolean 
flag=false 
for each tdf in currentdb.tabledefs 
 if tdf.name=tablename then 
    flag=true 
    exit for
 end  if
next 
TableExist=flag 
end function

Function TableExist(TableName As String) As Boolean
    On Error Resume Next
    CurrentProject.Connection.Execute  "Select Top 1  * From " & TableName
    If Err.Number =  0  Then
        TableExist = True
    Else
        TableExist = False
    End If
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы