｛アクセス｝全てのフォームの名前を取得したい

質問

ひとつのＭＤＢファイルに入っている全てのフォームの名前を取得したいのですが

Sub 全てのフォームの名前を取得()
Dim i As Integer
For i = 1 To Forms.Count
Debug.Print Forms.Name
Next
End Sub

このコードだと
オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)

となってしまいます。
どうすればいいでしょうか
よろしくお願い致します。

回答No.1

imogasi · ベストアンサー

ちょっとＷＥＢを調べたら、記事があるじゃないのか。
モジュールに
Private Sub AccessObjectTest()
Dim obj As AccessObject
'フォームを列挙
For Each obj In CurrentProject.AllForms
MsgBox obj.name
Next
End Sub
を入れて実行する。
Ｇｏｏｇｌｅで「ＶＢＡ　mdb フォーム　一覧」で照会。
２００７の場合は検討して。
アクセス・バージョンぐらい質問にくこと。

お礼

確認しないまま質問してすいません。ありがとうございます。