Перечень таблиц в DAO

[Went]

Подскажите пожалуйста, как в DAO получить перечень или список таблиц в базе? Либо получить количество таблиц в базе, а потом имя таблицы по ее номеру.

[mrs2000]

Можно так:

Код: Выделить всё

    Dim DB As Database
    Dim td As TableDef
   
    For Each td In DB.TableDefs
        Debug.Print td.name
    Next


[Went]

При обращении к TableDef мне выдаются параметры типа MSysQueries. И лишь последним выдал имя единственной таблицы. Выходит, первые 4 нужно просто пропускать?

[alibek]

Нет, нужно смотреть тип объекта.