DataAccessPage 對(duì)象

全部顯示

DataAccessPage 對(duì)象引用特定的 Microsoft Access 數(shù)據(jù)訪問(wèn)頁(yè)。

使用 DataAccessPage 對(duì)象

DataAccessPage 對(duì)象是 DataAccessPages 集合的一個(gè)成員，DataAccessPages 集合是所有當(dāng)前打開(kāi)的數(shù)據(jù)訪問(wèn)頁(yè)的集合。在 DataAccessPages 集合中，單個(gè)數(shù)據(jù)訪問(wèn)頁(yè)都從零開(kāi)始索引。通過(guò)按名稱或按其在集合中的索引引用數(shù)據(jù)訪問(wèn)頁(yè)，可以引用 DataAccessPages 集合中的單個(gè) DataAccessPage 對(duì)象。如果要引用 DataAccessPages 集合中的特定數(shù)據(jù)訪問(wèn)頁(yè)，最好按名稱引用它，因?yàn)閿?shù)據(jù)訪問(wèn)頁(yè)的集合索引可能會(huì)變動(dòng)。如果數(shù)據(jù)訪問(wèn)頁(yè)名稱中包含空格，那么必須將名稱用方括號(hào) ([ ]) 括起來(lái)。

 

下面的示例將新建一個(gè)數(shù)據(jù)訪問(wèn)頁(yè)并設(shè)置某些屬性：

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

下一個(gè)示例枚舉 DataAccessPages 集合并打印 DataAccessPages 集合中每個(gè)數(shù)據(jù)訪問(wèn)頁(yè)的名稱。

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