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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)
- 【Access窗体导出PDF】给A...(04.07)