DataAccessPage 對象引用特定的 Microsoft Access 數(shù)據(jù)訪問頁。
DataAccessPage 對象是 DataAccessPages 集合的一個成員,DataAccessPages 集合是所有當(dāng)前打開的數(shù)據(jù)訪問頁的集合。在 DataAccessPages 集合中,單個數(shù)據(jù)訪問頁都從零開始索引。通過按名稱或按其在集合中的索引引用數(shù)據(jù)訪問頁,可以引用 DataAccessPages 集合中的單個 DataAccessPage 對象。如果要引用 DataAccessPages 集合中的特定數(shù)據(jù)訪問頁,最好按名稱引用它,因為數(shù)據(jù)訪問頁的集合索引可能會變動。如果數(shù)據(jù)訪問頁名稱中包含空格,那么必須將名稱用方括號 ([ ]) 括起來。
語法 |
示例 |
DataAccessPages!pagename |
DataAccessPages!SalePage |
DataAccessPages![page name] |
DataAccessPages![Sale Page] |
DataAccessPages("pagename") |
DataAccessPages("Sale Page") |
DataAccessPages(index) |
DataAccessPages(0) |
下面的示例將新建一個數(shù)據(jù)訪問頁并設(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
下一個示例枚舉 DataAccessPages 集合并打印 DataAccessPages 集合中每個數(shù)據(jù)訪問頁的名稱。
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