容器集合 (DAO)

适用于：Access 2013、Office 2013

Containers 集合包含数据库中定义的所有 Container 对象。

备注

每个 Database 对象都具有一个由内置 Container 对象组成的 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