AllDatabaseDiagrams オブジェクト (Access)

AllDatabaseDiagrams コレクションには、 CurrentData または CodeData オブジェクトの各データベース ダイアグラムに対する AccessObject が含まれます。

注釈

CurrentData または CodeData オブジェクトには、 CurrentData または CodeData で指定されたすべてのデータベース ダイアグラムのインスタンスを示す AccessObject オブジェクトを含む AllDatabaseDiagrams コレクションがあります。 たとえば、Visual Basic で、 AllDatabaseDiagrams コレクションを列挙して、コレクションの各 AccessObject オブジェクトのプロパティの値を設定または取得することができます。

AllDatabaseDiagrams コレクション内の個々の AccessObject オブジェクトを参照するには、オブジェクトを名前で参照するか、コレクション内のインデックスを参照します。 AllDatabaseDiagrams コレクションの特定のオブジェクトを参照する場合、データベース ダイアグラムのインデックスは変わる可能性があるので、データベース ダイアグラムの名前で参照することをお勧めします。

AllDatabaseDiagrams コレクションには、0 から始まるインデックスが付けられます。 データベース ダイアグラムをインデックスで参照する場合、最初のデータベース ダイアグラムは AllDatabaseDiagrams(0)、2 番目のデータベース ダイアグラムは AllDatabaseDiagrams(1)、以下同様になります。

注:

AllDatabaseDiagrams コレクションから AccessObject オブジェクトを追加または削除することはできません。

例

次の例では、AllDatabaseDiagrams コレクション内で開いている AccessObject オブジェクトの名前を出力します。

Sub AllDatabaseDiagrams() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in 
    ' AllDatabaseDiagrams collection. 
    For Each obj In dbs.AllDatabaseDiagrams 
        If obj.IsLoaded = True Then 
            ' Print name of obj. 
            Debug.Print obj.Name 
        End If 
    Next obj 
End Sub 

プロパティ

• Application
• Count
• アイテム
• Parent

関連項目

• Access オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。