AllForms コレクション

Microsoft Access Visual Basic のリファレンス

AllForms コレクション

複数のオブジェクト AllForms AccessObject AccessObjectProperties

AllForms コレクションには、CurrentProject または CodeProject オブジェクトの各フォームに対する AccessObject オブジェクトが含まれます。

使い方

CurrentProject および CodeProject オブジェクトには、データベースのすべてのフォームのインスタンスを設定する AccessObject オブジェクトを含む AllForms コレクションがあります。たとえば、Visual Basic で AllForms コレクションを列挙して、コレクションの各 AccessObject オブジェクトのプロパティの値を設定または取得することができます。

ヒント

For Each...Next ステートメントは、コレクションを列挙するのに便利です。

AllForms コレクションの各 AccessObject オブジェクトは、そのオブジェクトの名前またはコレクションで付けられたインデックスを使って参照できます。AllForms コレクションの特定のオブジェクトを参照する場合、フォームのコレクションのインデックスは変わる可能性があるので、フォームの名前で参照することをお勧めします。

AllForms コレクションには、0 から始まるインデックスが付けられます。インデックスでフォームを参照する場合、最初のフォームは AllForms(0)、2 番目のフォームは AllForms(1) というように指定します。

メモ データベースの開いているフォームをすべて表示するには、AllForms コレクションの各 AccessObject オブジェクトの IsLoaded プロパティを使用します。その後、各 AccessObject オブジェクトの "Name/名前" プロパティを使用してフォームの名前を取得します。

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

次の使用例では、AllForms コレクションで開いている AccessObject オブジェクトの名前を印刷します。

Sub AllForms()

    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' AllForms コレクションの開いている AccessObject オブジェクトを検索します。
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            ' オブジェクト名を印刷します。
            Debug.Print obj.Name
        End If
    Next obj

End Sub