全部显示

DataAccessPage 对象引用特定的 Microsoft Access 数据访问页。

使用 DataAccessPage 对象

DataAccessPage 对象是 DataAccessPages 集合的一个成员，DataAccessPages 集合是所有当前打开的数据访问页的集合。在 DataAccessPages 集合中，单个数据访问页都从零开始索引。通过按名称或按其在集合中的索引引用数据访问页，可以引用 DataAccessPages 集合中的单个 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