Поделиться через

Коллекция документов (DAO)

  • Статья

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

Коллекция Documents содержит все объекты Document для определенного типа объектов (только базы данных ядра СУБД Microsoft Access).

Замечания

Каждый объект Container имеет коллекцию Documents , содержащую объекты Document , описывающие экземпляры встроенных объектов типа, заданного контейнером.

Чтобы ссылаться на объект Document в коллекции по порядковому номеру или параметру свойства Name , используйте любую из следующих форм синтаксиса:

  • Документы(0)

  • Documents("name")

  • Документы! [имя]

Пример

В этом примере перечисляется коллекция Documents контейнера Tables, а затем перечисляется коллекция Properties первого объекта Document в коллекции.

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