Freigeben über

Document-Objekt (DAO)

  • Artikel

Gilt für: Access 2013, Office 2013

Ein Document-Objekt schließt Informationen zu einer Objektinstanz ein. Bei dem Objekt kann es sich um eine Datenbank, gespeicherte Tabelle, Abfrage oder Beziehung handeln (gilt nur für Microsoft Access-Datenbanken).

Hinweise

Jedes Container-Objekt verfügt über eine Documents-Auflistung mit Document-Objekten, die Instanzen integrierter Objekte des durch das Container-Objekt angegebenen Typs beschreiben. In der folgenden Tabelle sind der Typ des Objekts, der in jedem Dokument beschrieben wird, der Name des Containerobjekts und der Art von Informationen aufgeführt, die in Document enthalten sind.

Dokument

Container

Enthält Informationen zu

Datenbank

Datenbanken

Gespeicherten Datenbanken

Tabelle oder Abfrage

Tabellen

Gespeicherten Tabellen oder Abfragen

Beziehung

Relations

Gespeicherten Beziehungen

Hinweis

Don't confuse the Container objects listed in the preceding table with the collections of the same name. The Databases Container object refers to all saved database objects, but the Databases collection refers only to database objects that are open in a particular workspace.

Bei einem Document-Objekt können Sie die folgenden Aktionen ausführen:

  • Geben Sie mit der Name-Eigenschaft den Namen zurück, den das Objekt bei seiner Erstellung von einem Benutzer oder dem Microsoft Access-Datenbankmodul erhalten hat.

  • Geben Sie mit der Container-Eigenschaft den Namen des Container-Objekts zurück, das das Document-Objekt enthält.

  • Verwenden Sie die Owner-Eigenschaft, um den Eigentümer des Objekts festzulegen oder zurückzugeben. Um die Owner-Eigenschaft festlegen zu können, benötigen Sie Schreibberechtigungen für das Document-Objekt, außerdem müssen Sie die Eigenschaft auf den Namen eines vorhandenen User- oder Group-Objekts festlegen.

  • Verwenden Sie die UserName- oder Permissions-Eigenschaft, um die Zugriffsberechtigungen eines Benutzers oder einer Gruppe für das Objekt festzulegen oder zurückzugeben. Um diese Eigenschaften festlegen zu können, benötigen Sie Schreibberechtigungen für das Document-Objekt, außerdem müssen Sie die UserName-Eigenschaft auf den Namen eines vorhandenen User- oder Group-Objekts festlegen.

  • Verwenden Sie die DateCreated- oder LastUpdated-Eigenschaft, um das Datum und die Uhrzeit der Erstellung oder letzten Änderung des Document-Objekts zurückzugeben.

Da ein Document-Objekt einem vorhandenen Objekt entspricht, können keine neuen Document-Objekte erstellt oder vorhandene gelöscht werden. Der Verweis auf ein Document-Objekt in einer Auflistung erfolgt über dessen Ordnungszahl oder den Wert der Name-Eigenschaft, wobei Sie die folgenden Syntaxformen verwenden können:

  • Documents(0)

  • Dokumente("Name")

  • Dokumente! [Name]

Beispiel

In diesem Beispiel wird die Documents-Auflistung aus dem Tabellencontainer aufgeführt und anschließend die Properties-Auflistung des ersten Document-Objekts in der Auflistung.

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

Dieses Beispiel zeigt mit den Eigenschaften Owner und SystemDB die Eigentümer verschiedener Document-Objekte an.

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