ник: час
Буду писать вот так:
'Возвращает true если есть таблица в базе
Function НаличиеТаблицыБазы(str As String) As Boolean
НаличиеТаблицыБазы = False
On Error GoTo Met1
Dim SearchString As String
SearchString = CurrentDb.TableDefs(str).Connect
НаличиеТаблицыБазы = True
Exit Function
Met1:
НаличиеТаблицыБазы = False
End Function
|
Ан нет - тожа на ошибке обращения выходит..........
ТАДА...
