【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

実行結果









comments powered by Disqus