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

AllForms 集合

时 间:2022-09-08 07:37:15
作 者:smileyoufu   ID:1784  城市:成都
摘 要:AllForms 集合包含 与 CurrentProject 或 CodeProject 对象中每个窗体相一个 AccessObject 对象。
正 文:

AllForms 集合包含 与 CurrentProject 或 CodeProject 对象中每个窗体相一个 AccessObject 对象。


说   
CurrentProject 和 CodeProject 对象具有一个 AllForms 集合,其中包含描述数据库中所有窗体的实例的 AccessObject 对象。 例如,可以在 Visual Basic 中列举 AllForms 集合来设置或返回该集合中单个 AccessObject 对象的属性值。
通过按名称或对象在集合中的索引来引用 AllForms 集合中的单个 AccessObject 对象。 如果要引用 AllForms 集合中特定的对象,最好按照名称引用窗体,因为窗体的集合索引可能会更改。

AllForms 集合的索引是从零开始的。 如果通过索引引用窗体,则第一个窗体是 AllForms(0),第二个窗体是 AllForms(1),依此类推。


备   注

若要列出数据库中所有打开的窗体,请使用 AllForms 集合中每个 AccessObject 对象的 IsLoaded 属性。 然后,可以使用 每个 AccessObject 对象的 Name 属性返回窗体的名称。

---------------------------------------------------------------------------------------------------

'下面的示例在立即窗口中显示 AllForms 集合中每个打开的 AccessObject 对象的名称。
Sub AllForms()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    '在所有窗体集合中搜索打开的AccessObject对象。
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            '打印对象名称。
            Debug.Print obj.Name
        End If
    Next obj
    MsgBox "在当前数据库中窗体总数量 " & CurrentProject.AllForms.Count & " 已打开窗体的数量= " & Forms.Count
End Sub

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

常见问答:

技术分类:

相关资源:

专栏作家

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