全部显示

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

使用 Count 属性可以判断指定集合中的项目个数。Integer 型，可读/写。

expression.Count

expression     必需。返回以上对象之一的表达式。

应用于“应用目标”列表中所有其他对象的 Count 属性。

使用 Count 属性可以判断指定集合中的项目个数。Long 型，只读。

expression.Count

expression     必需。返回以上对象之一的表达式。

设置

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