DataAccessPages 集合

全部顯示

DataAccessPages 集合包含 Microsoft Access 項目 (.adp) 或 Access 數(shù)據(jù)庫 (.mdb) 中當(dāng)前打開的所有數(shù)據(jù)訪問頁。

使用 DataAccessPages 集合

在 Visual Basic 中或表達(dá)式中使用 DataAccessPages 集合，可以引用當(dāng)前打開的數(shù)據(jù)訪問頁。例如，可以列舉 DataAccessPages 集合來設(shè)置或返回該集合中單個數(shù)據(jù)訪問頁的屬性值。

提示

For Each...Next

可以引用 DataAccessPages 集合中的單個 DataAccessPage 對象，方法是：按照名稱引用數(shù)據(jù)訪問頁，或引用集合中對象的索引。如果要引用 DataAccessPages 集合中特定的數(shù)據(jù)訪問頁，最好按照名稱引用數(shù)據(jù)訪問頁，因為數(shù)據(jù)訪問頁的集合索引可能會更改。

DataAccessPages 集合的索引是從零開始的。如果使用索引來引用數(shù)據(jù)訪問頁，則第一個數(shù)據(jù)訪問頁是 DataAccessPages(0)，第二個數(shù)據(jù)訪問頁是 DataAccessPages(1)，依此類推。如果在打開了 Page1 后打開 Page2，那么，在 DataAccessPages 集合中，Page2 將會通過它的索引 DataAccessPages(1) 來引用。如果此時關(guān)閉了 Page1，那么，在 DataAccessPages 集合中，Page2 將會通過索引 DataAccessPages(0) 來引用。

注釋  若要列出數(shù)據(jù)庫中所有(不管是打開的還是關(guān)閉)的數(shù)據(jù)訪問頁，可列舉 CurrentProject 對象的 AllDataAccessPages 集合。然后，可使用每個單獨的 AccessObject 對象的 Name 屬性返回數(shù)據(jù)訪問頁的名稱。

無法在 DataAccessPage 集合中添加或刪除 DataAccessPages 對象。

下面的示例將創(chuàng)建一個新的數(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