Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Access VBA教程:Count属性

时 间:2016-03-22 08:31:23
作 者:杨雪   ID:42182  城市:南京
摘 要:应用于窗体和报表对象的 Count属性
正 文:


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

expression.Count

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

应用于 AccessObjectPropertiesAllDataAccessPagesAllDatabaseDiagramsAllFormsAllFunctionsAllMacrosAllModulesAllObjectsAllQueriesAllReportsAllStoredProceduresAllTablesAllViewsControlsDataAccessPagesFormatConditionsFormsModulesPagesPrintersPropertiesReferences Reports对象的 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

VBA示例

以下示例使用 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


截图:




Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助