База данных  Access содержит  23  таблицы.
Как в операторе цикла извлечь ИМЕНА
Всех  таблиц ?  Код срабатывает после
Щелчка на командной кнопке.

Dim rs as new ADODB.Recordset

set rs = cn.OpenSchema(adSchemaTables)
While Not rs.EOF
 If rs!TABLE_TYPE = "TABLE" Then debug.print "Есть таблица " & rs!TABLE_NAME
 rs.MoveNext
Wend

Set rs = cn.OpenSchema(adSchemaTables) ' требуется ОБЪЕКТ ERROR -  424 

Sub tbdb()
    Dim d As Document
    For Each d In DBEngine.Workspaces( 0 ).Databases( 0 ).Containers("Tables").Documents
        Debug.Print d.name
    Next
End Sub

Dim cn as ADODB.Connection

Set cn=New ADODB.Connection
cn.Open "Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\my.mdb;User ID=Admin;Password=;"

...

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

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

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

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

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