Coleção de contêineres (DAO)

Aplica-se ao: Access 2013, Office 2013

Uma coleção containers contém todos os objetos container definidos em um banco de dados.

Comentários

Cada objeto Database tem uma coleção Containers que consiste em objetos Container incorporados. Alguns desses objetos Container são definidos pelo mecanismo de banco de dados do Microsoft Access enquanto outros podem ser definidos por outros aplicativos.

Exemplo

Este exemplo enumera a coleção Containers do banco de dados Northwind e a coleção Properties de cada objeto Container na coleção.

    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