Коллекция контейнеров (DAO)

Область применения: Access 2013, Office 2013

Коллекция Containers содержит все объекты Container , определенные в базе данных.

Замечания

Каждый объект Database имеет коллекцию Containers , состоящую из встроенных объектов Container . Некоторые из этих объектов Container определяются ядром СУБД Microsoft Access, а другие могут быть определены другими приложениями.

Пример

В этом примере перечисляются коллекция Containers базы данных Northwind и коллекция Properties каждого объекта Container в коллекции.

    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