22
カレントデータベース内にあるフォーム名の一覧とともに、それぞれのフォームのレコードセット（の種類）を収集します。
- まず「Database」オブジェクトの変数である「dbs」に”カレントデータベース”をセットします。
- 次に「Container」オブジェクトの変数である「ctn」に、カレントデータベースの「Containers」コレクション内にある”フォーム（Forms）”をセットします。これによってそのオブジェクト変数に”データベース内のフォームのグループ全体への参照”がセットされます。
- Container内にあるすべてのフォームのコレクションである「Documents」の中から、For Each〜Nextステートメントでひとつずつフォーム情報を取り出し、「Document」オブジェクトの変数「doc」にセットしていきます。
- 取り出されたひとつのフォーム情報のうち、フォーム名である「Name」プロパティの値を、ここではそれを何度か使用するため、いったん変数「strFormName」にセットします。
- フォーム内のオブジェクトを参照するので、そのフォームを”デザインビュー”（引数に「acDesign」を指定）で開きます。
- まずフォーム名をイミディエイトウィンドウに出力します。
- さらに、そのフォームのレコードセットの種類を表す「RecordsetType」プロパティを調べ、Select Caseステートメントでその値に応じた種類の名称（プロパティシートに表示される３種類の名称のいずれか）をイミディエイトウィンドウに出力します。
- そのフォームを閉じます。
ここではデータ収集のみでデザイン変更はありませんので、引数に「acSaveNo」を指定することで意図的に変更を保存せずに閉じます。
Sub Sample_3_04()
'フォームのレコードセットタイプを収集する
Dim dbs As Database
Dim ctn As Container
Dim doc As Document
Dim strFormName As String
Set dbs = CurrentDb
Set ctn = dbs.Containers!Forms
For Each doc In ctn.Documents
strFormName = doc.Name
DoCmd.OpenForm strFormName, acDesign
Debug.Print strFormName,
Select Case Forms(strFormName).RecordsetType
Case 0
Debug.Print "ダイナセットタイプ"
Case 1
Debug.Print "ダイナセット(矛盾を許す)"
Case 2
Debug.Print "スナップショット"
End Select
DoCmd.Close acForm, strFormName, acSaveNo
Next doc
End Sub
実行例：
