全部显示

DataAccessPages 集合包含 Microsoft Access 项目 (.adp) 或 Access 数据库 (.mdb) 中当前打开的所有数据访问页。

使用 DataAccessPages 集合

在 Visual Basic 中或表达式中使用 DataAccessPages 集合，可以引用当前打开的数据访问页。例如，可以列举 DataAccessPages 集合来设置或返回该集合中单个数据访问页的属性值。

提示

For Each...Next

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

DataAccessPages 集合的索引是从零开始的。如果使用索引来引用数据访问页，则第一个数据访问页是 DataAccessPages(0)，第二个数据访问页是 DataAccessPages(1)，依此类推。如果在打开了 Page1 后打开 Page2，那么，在 DataAccessPages 集合中，Page2 将会通过它的索引 DataAccessPages(1) 来引用。如果此时关闭了 Page1，那么，在 DataAccessPages 集合中，Page2 将会通过索引 DataAccessPages(0) 来引用。

注释  若要列出数据库中所有(不管是打开的还是关闭)的数据访问页，可列举 CurrentProject 对象的 AllDataAccessPages 集合。然后，可使用每个单独的 AccessObject 对象的 Name 属性返回数据访问页的名称。

无法在 DataAccessPage 集合中添加或删除 DataAccessPages 对象。

下面的示例将创建一个新的数据访问页，并且设置某些属性：

Sub NewDataAccessPage()

    Dim dap As AccessObject

    ' Create new data access page.

    Set dap = CreateDataAccessPage("c:\My Documents\Sales Entry", _

            True)

    ' Set data access page Tag property.

    dap.Tag = "Sales Entry Data Access Page"

    ' Restore data access page.

    DoCmd.Restore

End Sub

下一个示例列举 DataAccessPages 集合，并且打印 DataAccessPages 集合中每个数据访问页的名称。

Sub AllOpenDataAccessPages()

    Dim dap As AccessObject

    Set dbs = Application.CurrentProject

    ' Search for open objects in DataAccessPages collection.

    For Each dap In dbs.AllDataAccessPages

        If dap.IsLoaded = TRUE then

            ' Print name of form.

            Debug.Print dap.Name

        End If

    Next dap

End Sub