【Access】データベース内の全てのフォームを参照する

データベース内の全てのフォームを参照するには、AllFormsコレクションを使います。

例

たとえばこのようなデータベース（accdbファイル）があるとします。



このデータベース内の全てのフォームのフォーム名を取得するには次のように記述します。

Public Sub GetAllFormsInfo()

    Dim frm As AccessObject
    Dim msg As String
    
    For Each frm In CurrentProject.AllForms
    
        msg = msg & frm.Name & vbCrLf
        
    Next
    
    MsgBox msg
    
End Sub

実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/10/access-vba-allforms.html 【Access】データベース内の全てのフォームを参照する