Compartir a través de


Colección Containers (DAO)

Se aplica a: Access 2013, Office 2013

Una colección Containers contiene todos los objetos Container definidos en una base de datos.

Comentarios

Cada objeto Database tiene una colección Containers que consta de objetos Container integrados. Algunos de estos objetos Container están definidos por el motor de base de datos de Microsoft Access mientras que otros pueden estar definidos por otras aplicaciones.

Ejemplo

En este ejemplo se enumera la colección Containers de la base de datos Northwind y la colección Properties de cada objeto Container de la colección.

    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