Добрый день. Есть функция
Public Function CheckTable(strtblName As String) As Boolean

Dim tbl As dao.TableDef
On Error Resume Next
Set tbl = CurrentDb().TableDefs(strtblName)
If Err.Number = 0 Then
CheckTable = True
Else
CheckTable = False
End If

CheckTable_EXIT:
Exit Function

CheckTable_ERR:
Select Case Err.Number
Case Else
MsgBox Err.Description & "(" & Err.Number & ") в процедуре CheckTable"
Resume CheckTable_EXIT
End Select
End Function
Прописываю на форме процедуру:
Private Sub Кнопка43_Click()
strtblName = "ПКВфакт"
If CheckTable(strtblName) = True Then
DoCmd.DeleteObject acTable, strtblName
Else
DoCmd.OpenQuery "ТаблицаПКВфакт"
End If
PrevIsh1
End Sub
Не работает!!! Не могу понять где ошибка!

Спасибо всем кто откликнулся!
Вообще от програмы я жду, что она проверит существует ли тыблица с именем ПКВфакт в моей базе, и если она есть, то удалить, а если нет, то сразу запустить запрос.
Так подробно объясняю, потому что в VBA копошусь всего пару месяцев, и многое делаю на ощуп.

Ура!!!!!!!!!!!! Еще раз всем спасибо!!!!!!!!!!!
Переписала!!!!! Работает!!!!!!!!!!