Containerを使ったオブジェクト一覧の取得

Containersプロパティについて

Database.Containersプロパティには、Containerオブジェクトのコレクションが格納されています。

各ContainerオブジェクトのDocumentsプロパティには、様々なオブジェクトのコレクションが格納されています。

各Documentsオブジェクトの各Documentオブジェクトが、1つ1つのAccessオブジェクトを指します。

下記では、各Containerを列挙し、さらにそれらに含まれるDocumentを列挙しています。

Public Sub PrintAllObjectsByContainer()

    Dim db As dao.Database
    Dim c As dao.Container
    Dim d As dao.Document
    
    Set db = CurrentDb
    For Each c In db.Containers
        Debug.Print "---" & c.name & "---"
        For Each d In c.Documents
            Debug.Print d.name
        Next
    Next

End Sub

コンテナの名前	コンテナの内容
DataAccessPages	（不明）
Databases	データベース？のコレクション
Forms	フォームのコレクション
Modules	モジュールのコレクション
Relationships	リレーションシップのコレクション
Reports	レポートのコレクション
Scripts	マクロのコレクション
SysRel	（不明）
Tables	テーブル・クエリーのコレクション

DataBases

当方の環境では下記のようになったが、これが何を指すものかは不明。また、環境によって変わるものかどうかも不明。

• MSysDb
• SummaryInfo
• UserDefined