全部显示

AllDataAccessPages 集合包含 CurrentProject 或 CodeProject 对象中每个数据访问页的 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