AllDataAccessPages 集合

全部顯示

AllDataAccessPages 集合包含 CurrentProject 或 CodeProject 對象中每個數(shù)據(jù)訪問頁的 AccessObject 對象。

注釋  盡管 Microsoft Access 項目 (.adp) 或 Microsoft Access 數(shù)據(jù)庫 (.mdb) 可能看似包含了數(shù)據(jù)訪問頁，但實際上這些頁存儲在項目或數(shù)據(jù)庫以外的文件中。

使用 AllDataAccessPages 集合

CurrentProject 或 CodeProject 對象具有一個 AllDataAccessPages 集合，其中包含描述數(shù)據(jù)庫中所有數(shù)據(jù)訪問頁的實例的 AccessObject 對象。例如，可以在 Visual Basic 中列舉 AllDataAccessPages 集合來設置或返回該集合中單個 AccessObject 對象的屬性值。

提示

For Each...Next

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

AllDataAccessPages 集合的索引是從零開始的。如果通過索引來引用數(shù)據(jù)訪問頁，則第一個數(shù)據(jù)訪問頁是 AllDataAccessPages(0)，第二個數(shù)據(jù)訪問頁是 AllDataAccessPages(1)，依此類推。

注釋  若要列出數(shù)據(jù)庫中所有打開的數(shù)據(jù)訪問頁，請使用 AllDataAccessPages 集合中每個 AccessObject 對象的 IsLoaded 屬性。然后，可使用每個單獨的 AccessObject 對象的 Name 屬性返回數(shù)據(jù)訪問頁的名稱。

無法在 AllDataAccessPages 集合中添加或刪除 AccessObject 對象。

下面的示例將打印 AllDataAccessPages 集合中每個打開的 AccessObject 對象的名稱。

Sub AllDataAccessPages()

    Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentProject

    ' Search for open AccessObject objects in

    ' AllDataAccessPages collection.

    For Each obj In dbs.AllDataAccessPages

        If obj.IsLoaded = True Then

            ' Print name of obj.

            Debug.Print obj.Name

        End If

    Next obj

End Sub