'******************** Code Start ************************ 

Function НаличиеТаблицыБазы(Str As String) As Boolean 
'Возвращает true если есть таблица в базе 
'Str - имя таблицы    
НаличиеТаблицыБазы = False    
On Error GoTo Met1    
Dim SearchString As String
SearchString = CurrentDb.TableDefs(Str).Connect
НаличиеТаблицыБазы = True  
Exit Function  
Met1:    
НаличиеТаблицыБазы = False  
End Function 

 '******************** Code End ************************  

Коментарии (1)

1  Написал(а) Константин, в 14:02 12.04.2011 Спасибо!  Сейчас попробую, мне нужна такая вещчь!

Добавить коментарий
Имя:
E-mail
Коментарий:
Код:*