データベース内の全てのフォームを参照するには、AllFormsコレクションを使います。
例
たとえばこのようなデータベース（accdbファイル）があるとします。
このデータベース内の全てのフォームのフォーム名を取得するには次のように記述します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 |
実行結果
スポンサーリンク
