ник: час
потомукак вот в текущей базе можно проверить вот так....
Public Function Nalichie_Tablici_v_Baze(str As String) As Boolean
'Возвращает true если есть таблица в базе
Nalichie_Tablici_v_Baze = False
On Error GoTo Met1
Dim SearchString As String
SearchString = CurrentDb.TableDefs(str).Connect
Nalichie_Tablici_v_Baze = True
Exit Function
Met1:
Nalichie_Tablici_v_Baze = False
End Function
|
а в другой базе???