Forms.Count Property (Access)
You can use the Count property to determine the number of items in a specified collection. Read-only Long.
Syntax
식 .Count
식 A variable that represents a Forms object.
Example
For example, if you want to determine the number of forms currently open or existing on the database, you would use the following code strings
' Determine the number of open forms.
forms.count
' Determine the number of forms (open or closed)
' in the current database.
currentproject.allforms.count
The following example uses the Count property to control a loop that prints information about all open forms and their controls.
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