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

Access (AllViews对象)

时 间:2022-09-29 07:48:45
作 者:smileyoufu   ID:1784  城市:成都
摘 要:AllViews 集合 包含 一个 AccessObject CurrentData 或 CodeData 对象中每个视图。
正 文:

AllViews 集合 包含 一个 AccessObject CurrentData 或 CodeData 对象中每个视图。

备   注:

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 对象的名称。

VB复制

Sub AllViews()

    Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    ' 在 AllViews 集合中搜索打开的 AccessObject 对象。

    For Each obj In dbs.AllViews

        If obj.IsLoaded = True Then

            ' 打印 obj 的名称

            Debug.Print obj.Name

        End If

    Next obj

End Sub



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

常见问答:

技术分类:

相关资源:

专栏作家

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