全部显示

Count 属性

应用于窗体和报表对象的 Count 属性

应用于 AccessObjectProperties、AllDataAccessPages、AllDatabaseDiagrams、AllForms、AllFunctions、AllMacros、AllModules、AllObjects、AllQueries、AllReports、AllStoredProcedures、AllTables、AllViews、Controls、DataAccessPages、FormatConditions、Forms、Modules、Pages、Printers、Properties、References 和 Reports 对象的 Count 属性

设置

Count 属性设置是整型值，且在所有视图中都是只读的。

可以使用宏或 Visual Basic 确定对象的 Count 属性。

说明

例如，如果要确定当前打开的窗体个数或数据库中现有的窗体个数，则可以使用以下代码：

' 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

下一示例判断窗体或报表中控件的数目，然后将该数目赋给一个变量。

Dim intFormControls As Integer
Dim intReportControls As Integer
intFormControls = Forms!Employees.Count
intReportControls = Reports!FreightCharges.Count