Public Function XTblTest(mycat As Object, tblName As String) As Boolean
' проверка существования таблицы tblName вернёт true/false
Dim Mytable As ADOX.Table
XTblTest = False
For Each Mytable In mycat.Tables
  If Mytable.Name = tblName Then
    XTblTest = True
    Exit For
  End If
Next Mytable
End Function

Dim mycat As ADOX.Catalog
Set mycat = New ADOX.Catalog
mycat.ActiveConnection = CurrentProject.Connection
If XTblTest(mycat, "Tcorp") Then MsgBox ("Есть corp контакт")

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы