Объект Document (DAO)

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

Объект Document содержит сведения об одном экземпляре объекта. Объект может быть базой данных, сохраненной таблицей, запросом или связью (только базы данных ядра СУБД Microsoft Access).

Замечания

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

Документ

Container

Содержит сведения о

База данных

Databases

Сохраненная база данных

Таблица или запрос

Таблицы

Сохраненная таблица или запрос

Связь

Relations

Сохраненная связь

Примечание.

Не путайте объекты Container , перечисленные в предыдущей таблице, с коллекциями с тем же именем. Объект Database Container относится ко всем сохраненным объектам базы данных, а коллекция Databases — только к объектам базы данных, открытым в определенной рабочей области.

С помощью объекта Document можно:

  • Используйте свойство Name , чтобы вернуть имя, которое пользователь или ядро СУБД Microsoft Access дал объекту при его создании.

  • Используйте свойство Container , чтобы вернуть имя объекта Container , содержащего объект Document .

  • Используйте свойство Owner , чтобы задать или вернуть владельца объекта. Чтобы задать свойство Owner , необходимо иметь разрешение на запись для объекта Document и задать для свойства имя существующего объекта User или Group .

  • Используйте свойства UserName или Permissions , чтобы задать или вернуть разрешения на доступ пользователя или группы для объекта . Чтобы задать эти свойства, необходимо иметь разрешение на запись для объекта Document , а для свойства UserName необходимо задать имя существующего объекта User или Group .

  • Используйте свойства DateCreated и LastUpdated , чтобы вернуть дату и время создания и последнего изменения объекта Document .

Так как объект Document соответствует существующему объекту, нельзя создавать новые объекты 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

В этом примере свойства Owner и SystemDB используются для отображения владельцев различных объектов Document .

Sub OwnerX() 
 
 ' Ensure that the Microsoft Access workgroup file is 
 ' available. 
 DBEngine.SystemDB = "system.mdw" 
 
 Dim dbsNorthwind As Database 
 Dim ctrLoop As Container 
 
 Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
 
 With dbsNorthwind 
 Debug.Print "Document owners:" 
 ' Enumerate Containers collection and show the owner 
 ' of the first Document in each container's Documents 
 ' collection. 
 For Each ctrLoop In .Containers 
 With ctrLoop 
 Debug.Print " [" & .Documents(0).Name & _ 
 "] in [" & .Name & _ 
 "] container owned by [" & _ 
 .Documents(0).Owner & "]" 
 End With 
 Next ctrLoop 
 
 .Close 
 End With 
 
End Sub
  • Last updated on