Containers collection (DAO)

S’applique à : Access 2013, Office 2013

Une collection Containers contient tous les objets Container définis dans une base de données.

Remarques

Chaque objet Database possède une collection Containers composée d’objets Container intégrés. Certains de ces objets Container sont définis par le moteur de base de données Microsoft Access alors que les autres peuvent définis par d'autres applications.

Exemple

Cet exemple énumère la collection Containers de la base de données Northwind et la collection Properties de chaque objet Container dans la collection.

    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