Nikolay Gerasimovвозникла проблема.
На своем компутере все работает замечательно, но вот вчера поставил клиентика на второй комп. Стала возникать проблема с отработкой одной функции:
Function TableExist(TableName As String) As Boolean
Dim db As Database

Set db = CurrentDb
On Error Resume Next
CurrentProject.Connection.Execute "Select Top 1 * From " & TableName
If Err.Number = 0 Then

db.Execute "DROP TABLE " & TableName & ";"
End If
db.Close
End Function
суть вопроса такая независимо от того существует или нет проверяемая таблица значение Err.Number = 429 .
Может кто нибудь подскажет как с этим бороться????

А может куда-нибудь результат записать надо после SELECT-а?