AllViews 对象 (Access)
AllViews 集合包含 CurrentData 或 CodeData 对象中每个视图的 AccessObject。
CurrentData 或 CodeData 对象具有一个 AllViews 集合,其中包含描述由 CurrentData 或 CodeData 指定的所有视图的实例的 AccessObject 对象。 例如,可以在 Visual Basic 中列举 AllViews 集合来设置或返回该集合中单个 AccessObject 对象的属性值。
通过按名称引用对象或在集合中引用其索引来引用 AllViews 集合中的单个 AccessObject 对象。 如果要引用 AllViews 集合中的特定的对象,最好按照名称引用视图,因为视图的集合索引可能会更改。
AllViews 集合的索引是从零开始的。 如果按视图的索引引用视图,则第一个视图为 AllViews (0) ,第二个视图为 AllViews (1) ,依此以类。
备注
若要列出数据库中所有打开的视图,请使用 AllViews 集合中每个 AccessObject 对象的 IsLoaded 属性。 然后,可以使用每个 AccessObject 对象的 Name 属性返回视图的名称。
不能在 AllViews 集合中添加或删除 AccessObject 对象。
下面的示例打印 AllViews 集合中每个打开的 AccessObject 对象的名称。
Sub AllViews()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllViews collection.
For Each obj In dbs.AllViews
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。