Containers コレクション (DAO)

適用先: Access 2013、Office 2013

Containers コレクションには、データベースで定義されているすべての Container オブジェクトが含まれています。

注釈

各 Database オブジェクトには、組み込みの Container オブジェクトで構成される 1 つの Containers コレクションがあります。 これらの Container オブジェクトには、Microsoft Access データベース エンジンで定義されているものもあれば、他のアプリケーションで定義されているものもあります。

例

次の使用例は、Northwind データベースの Containers コレクション、およびコレクションに含まれる各 Container オブジェクトの Properties コレクションを列挙します。

    Sub ContainerObjectX()
    
       Dim dbsNorthwind As Database
       Dim ctrLoop As Container
       Dim prpLoop As Property
    
       Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    
       With dbsNorthwind
    
          ' Enumerate Containers collection.
          For Each ctrLoop In .Containers
             Debug.Print "Properties of " & ctrLoop.Name _
                & " container"
    
             ' Enumerate Properties collection of each
             ' Container object.
             For Each prpLoop In ctrLoop.Properties
                Debug.Print "  " & prpLoop.Name _
                   & " = " prpLoop
             Next prpLoop
    
          Next ctrLoop
    
          .Close
       End With
    
    End Sub