Forms.Count プロパティ (Access)
Count プロパティを使用して、指定したコレクション内の項目の数を決定します。 取得のみ可能な Long 値です。
構文
式。カウント
式Forms オブジェクトを表す変数。
例
たとえば、データベースで現在開いているフォームまたは既存のフォームの数を決定する場合は、次のコード文字列を使用します。
' Determine the number of open forms.
forms.count
' Determine the number of forms (open or closed)
' in the current database.
currentproject.allforms.count
次の使用例では、 Count プロパティを使って、開かれているすべてのフォームおよびそのコントロールに関する情報を印刷するループを制御します。
Sub Print_Form_Controls()
Dim frm As Form, intI As Integer
Dim intJ As Integer
Dim intControls As Integer, intForms As Integer
intForms = Forms.Count ' Number of open forms.
If intForms > 0 Then
For intI = 0 To intForms - 1
Set frm = Forms(intI)
Debug.Print frm.Name
intControls = frm.Count
If intControls > 0 Then
For intJ = 0 To intControls - 1
Debug.Print vbTab; frm(intJ).Name
Next intJ
Else
Debug.Print vbTab; "(no controls)"
End If
Next intI
Else
MsgBox "No open forms.", vbExclamation, "Form Controls"
End If
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。