次の方法で共有

Document オブジェクト (DAO)

適用先: Access 2013、Office 2013

Document オブジェクトには、オブジェクトの 1 つのインスタンスの情報があります。 オブジェクトは、データベース、保存されたテーブル、クエリ、またはリレーションシップのいずれかです (Microsoft Access データベース エンジン データベースのみ)。

注釈

各 Container オブジェクトには、 Container オブジェクトで指定された組み込みのオブジェクトのインスタンスを記述する Document オブジェクトを含む Documents コレクションがあります。 次の表に、各 Document オブジェクトが記述するオブジェクトの種類、その Container オブジェクトの名前、および Document オブジェクトに格納されている情報の種類を示します。

ドキュメント

コンテナー

格納されている情報

Database

Databases

保存されたデータベース

テーブルまたはクエリ

テーブル

保存されたテーブルまたはクエリ

リレーションシップ

Relations

保存されたリレーションシップ

注:

[!メモ] 上記の表の Container オブジェクトと、同じ名前のコレクションを混同しないでください。 Databases の Container オブジェクトは、保存されたすべてのデータベース オブジェクトを参照しますが、 Databases コレクションは、特定のワークスペースで開いているデータベース オブジェクトのみを参照します。

Document オブジェクトを使用すると、以下の操作を実行できます。

  • Name プロパティを使用して、ユーザーまたは Microsoft Access データベース エンジンがオブジェクトの作成時に付けた名前を取得します。

  • Container プロパティを使用して、 Document オブジェクトを含む Container オブジェクトの名前を取得します。

  • Owner プロパティを使用して、オブジェクトの所有者を設定または取得します。 Owner プロパティを設定するには、 Document オブジェクトに対する書き込み権限が必要であり、プロパティを既存の User オブジェクトまたは Group オブジェクトの名前に設定する必要があります。

  • UserName プロパティまたは Permissions プロパティを使用して、オブジェクトのユーザーまたはグループのアクセス権限を設定または取得します。 これらのプロパティを設定するには、 Document オブジェクトへの書き込み権限が必要であり、 UserName プロパティを既存の User オブジェクトまたは Group オブジェクトの名前に設定する必要があります。

  • DateCreated プロパティを使用して、 Document オブジェクトが作成された日時を取得し、 LastUpdated プロパティを使用して、最後に変更された日時を取得します。

各 Document オブジェクトは、既存のオブジェクトに対応しているため、 Document オブジェクトを新規作成したり、既存のオブジェクトを削除することはできません。 コレクション内の Document オブジェクトを、コレクションで付けられたインデックスまたは Name プロパティの設定値で参照するには、次のいずれかの構文を使います。

  • Documents(0)

  • Documents("name")

  • ドキュメント![name]

例

この例では、Tables コンテナーの Documents コレクションを列挙し、次にコレクションの最初の Document オブジェクトの Properties コレクションを列挙します。

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