Access VBA教程:AllDataAccessPages集合

多个对象
AllDataAccessPages
AccessObject

AllDataAccessPages集合包含CurrentProjectCodeProject对象中每个数据访问页的AccessObject对象。

注意   尽管Microsoft Access 项目 (.adp) 或Microsoft Access 数据库 (.mdb) 可能看似包含了数据访问页,但实际上这些页存储在项目或数据库以外的文件中。

使用 AllDataAccessPages集合

CurrentProject 或 CodeProject对象具有一个 AllDataAccessPages集合,其中包含描述数据库中所有数据访问页的实例的 AccessObject对象。例如,可以在 Visual Basic 中列举 AllDataAccessPages集合来设置或返回该集合中单个 AccessObject对象的属性值。

提示   For Each...Next 语句对列举集合非常有用。

可以引用 AllDataAccessPages集合中的单个 AccessObject对象,方法是:按照名称引用项目,或引用集合中对象的索引。如果要引用 AllDataAccessPages集合中特定的数据访问页,最好按照名称引用项目,因为索引可能会更改。

AllDataAccessPages集合的索引是从零开始的。如果通过索引来引用数据访问页,则第一个数据访问页是 AllDataAccessPages(0),第二个数据访问页是 AllDataAccessPages(1),依此类推。

注意   若要列出数据库中所有打开的数据访问页,请使用 AllDataAccessPages集合中每个 AccessObject对象的IsLoaded属性。然后,可使用每个单独的 AccessObject对象的Name属性返回数据访问页的名称。

无法在 AllDataAccessPages集合中添加或删除 AccessObject对象。

下面的示例将打印 AllDataAccessPages集合中每个打开的 AccessObject对象的名称。


Sub AllDataAccessPages()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in
    ' AllDataAccessPages collection.
    For Each obj In dbs.AllDataAccessPages
        If obj.IsLoaded = True Then
            ' Print name of obj.
            Debug.Print obj.Name
        End If
    Next obj
End Sub

上页:Access VBA教程:AccessObjectProperties集合 下页:Access VBA教程:AllDatabaseDiagrams集合

Access VBA教程:AllDataAccessPages集合

Access VBA教程:AllDatabaseDiagrams集合 Access VBA教程:AllForms集合
Access VBA教程:AllMacros集合 Access VBA教程:AllModules集合
Access VBA教程:AllQueries集合 Access VBA教程:AllReports集合
Access VBA教程:AllStoredProcedures集合 Access VBA教程:AllTables集合
Access VBA教程:AllViews集合 Access VBA教程:Controls集合
Access VBA教程:DataAccessPages集合 Access VBA教程:FormatConditions集合
Access VBA教程:Forms集合 Access VBA教程:Modules集合
Access VBA教程:Pages集合 Access VBA教程:Properties集合
Access VBA教程:References集合 Access VBA教程:Reports集合
Access VBA教程:Microsoft Access 的“自动化”功能 Access VBA教程:颜色生成器
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号