DataAccessPages 集合
內(nèi)容
DataAccessPages 集合包含 Microsoft Access 項(xiàng)目 (.adp) 或 Access 數(shù)據(jù)庫(kù) (.mdb) 中當(dāng)前打開的所有數(shù)據(jù)訪問(wèn)頁(yè)。
使用 DataAccessPages 集合
在 Visual Basic 中或表達(dá)式中使用 DataAccessPages 集合，可以引用當(dāng)前打開的數(shù)據(jù)訪問(wèn)頁(yè)。例如，可以列舉 DataAccessPages 集合來(lái)設(shè)置或返回該集合中單個(gè)數(shù)據(jù)訪問(wèn)頁(yè)的屬性值。
可以引用 DataAccessPages 集合中的單個(gè) DataAccessPage 對(duì)象，方法是：按照名稱引用數(shù)據(jù)訪問(wèn)頁(yè)，或引用集合中對(duì)象的索引。如果要引用 DataAccessPages 集合中特定的數(shù)據(jù)訪問(wèn)頁(yè)，最好按照名稱引用數(shù)據(jù)訪問(wèn)頁(yè)，因?yàn)閿?shù)據(jù)訪問(wèn)頁(yè)的集合索引可能會(huì)更改。
DataAccessPages 集合的索引是從零開始的。如果使用索引來(lái)引用數(shù)據(jù)訪問(wèn)頁(yè)，則第一個(gè)數(shù)據(jù)訪問(wèn)頁(yè)是 DataAccessPages(0)，第二個(gè)數(shù)據(jù)訪問(wèn)頁(yè)是 DataAccessPages(1)，依此類推。如果在打開了 Page1 后打開 Page2，那么，在 DataAccessPages 集合中，Page2 將會(huì)通過(guò)它的索引 DataAccessPages(1) 來(lái)引用。如果此時(shí)關(guān)閉了 Page1，那么，在 DataAccessPages 集合中，Page2 將會(huì)通過(guò)索引 DataAccessPages(0) 來(lái)引用。
注釋 若要列出數(shù)據(jù)庫(kù)中所有(不管是打開的還是關(guān)閉)的數(shù)據(jù)訪問(wèn)頁(yè)，可列舉 CurrentProject 對(duì)象的 AllDataAccessPages 集合。然后，可使用每個(gè)單獨(dú)的 AccessObject 對(duì)象的 Name 屬性返回?cái)?shù)據(jù)訪問(wèn)頁(yè)的名稱。
無(wú)法在 DataAccessPage 集合中添加或刪除 DataAccessPages 對(duì)象。
下面的示例將創(chuàng)建一個(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