Collection Documents (DAO)

S’applique à : Access 2013, Office 2013

Une collection Documents contient tous les objets Document d'un type spécifique d'objet (bases de données de moteur de base de données Microsoft Access uniquement).

Remarques

Chaque objet Container est doté d'une collection Documents contenant les objets Document qui décrivent les instances des objets intégrés du type spécifié dans l'objet Container.

Pour faire référence à un objet Document d'une collection par son numéro ordinal ou par son paramètre de propriété Name, utilisez l'une des syntaxes suivantes :

• Documents(0)

• Documents(« name »)

• Documents ! [name]

Exemple

Cet exemple énumère la collection Documents du conteneur Tables, puis la collection Properties du premier objet Document de la collection.

Sub DocumentX() 
 
 Dim dbsNorthwind As Database 
 Dim docLoop As Document 
 Dim prpLoop As Property 
 
 Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
 
 With dbsNorthwind.Containers!Tables 
 Debug.Print "Documents in " & .Name & " container" 
 ' Enumerate the Documents collection of the Tables 
 ' container. 
 For Each docLoop In .Documents 
 Debug.Print " " & docLoop.Name 
 Next docLoop 
 With .Documents(0) 
 ' Enumerate the Properties collection of the first. 
 ' Document object of the Tables container. 
 Debug.Print "Properties of " & .Name & " document" 
 On Error Resume Next 
 For Each prpLoop In .Properties 
 Debug.Print " " & prpLoop.Name & " = " & _ 
 prpLoop 
 Next prpLoop 
 On Error GoTo 0 
 End With 
 End With 
 
 dbsNorthwind.Close 
 
End Sub