19
カレントデータベース内にあるフォーム名の一覧を収集します。
- まず「Database」オブジェクトの変数である「dbs」に”カレントデータベース”をセットします。
- 次に「Container」オブジェクトの変数である「ctn」に、カレントデータベースの「Containers」コレクション内にある”フォーム（Forms）”をセットします。これによってそのオブジェクト変数に”データベース内のフォームのグループ全体への参照”がセットされます。
- Container内にあるすべてのフォームのコレクションである「Documents」の中から、For Each〜Nextステートメントでひとつずつフォーム情報を取り出し、「Document」オブジェクトの変数「doc」にセットしていきます。
- 取り出されたひとつのフォーム情報のうち、フォーム名である「Name」プロパティの値をイミディエイトウィンドウに出力します。
Sub Sample_3_01()
'フォーム名を収集する
Dim dbs As Database
Dim ctn As Container
Dim doc As Document
Set dbs = CurrentDb
Set ctn = dbs.Containers!Forms
For Each doc In ctn.Documents
Debug.Print doc.Name
Next doc
End Sub
実行例：
 |
 |
