データベースのすべてのフォーム・レポート・マクロ・モジュール名を取得する
 データベースにあるフォーム・レポート・マクロ・モジュールの名前を取得するには、
Containerオブジェクトを使用します。

 ContainerオブジェクトにはDocumentsコレクションがあり、その中に
Documentオブジェクトが含まれています。

 DocumentオブジェクトのNameプロパティを使用して、Containerオブジェクトに定義
されている名前を取得することができます

 サンプルでは、カレントデータベースのすべてのフォーム名を
イミディエイトウィンドウに出力しています。

● サンプル ●

Sub Sample1()
    Dim mymydb  As Database
    
    Set mydb = CurrentDb
    
    Debug.Print "すべてのフォーム名を出力します"
    For Each mydoc In mydb.Containers("Forms").Documents
        Debug.Print mydoc.Name
    Next
End Sub

 住所録フォームと商品管理フォームが存在するとしたら、
イミディエイトウィンドウには次のように出力されます。

すべてのフォーム名を出力します
住所録
商品管理


● 補足説明 ●

 レポート名を出力するには、

mydb.Containers("Reports").Documents

マクロ名を出力するには、

mydb.Containers("Scripts").Documents

モジュール名を出力するには、

mydb.Containers("Modules").Documents

とします。

Access97/2000



戻る


Excel Word Access VBA! モーグ