Documents コレクション (DAO)

  • [アーティクル]

適用先: Access 2013、Office 2013

Documents コレクションには、特定の種類のオブジェクトのすべての Document オブジェクトが含まれます。

注釈

各 Container オブジェクトには、 Container が指定する種類の組み込みオブジェクトのインスタンスを説明する Document オブジェクトを含む、 Documents コレクションがあります。

コレクション内の 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