Access VBA教程:DataAccessPages集合

Application
DataAccessPages
DataAccessPage

DataAccessPages集合包含Microsoft Access 项目 (.adp) 或 Access数据库 (.mdb) 中当前打开的所有数据访问页。

使用 DataAccessPages集合

在 Visual Basic 中或表达式中使用 DataAccessPages集合,可以引用当前打开的数据访问页。例如,可以列举 DataAccessPages集合来设置或返回该集合中单个数据访问页的属性值。

提示   For Each...Next 语句对列举集合非常有用。

可以引用 DataAccessPages集合中的单个DataAccessPage对象,方法是:按照名称引用数据访问页,或引用集合中对象的索引。如果要引用 DataAccessPages集合中特定的数据访问页,最好按照名称引用数据访问页,因为数据访问页的集合索引可能会更改。

DataAccessPages集合的索引是从零开始的。如果使用索引来引用数据访问页,则第一个数据访问页是 DataAccessPages(0),第二个数据访问页是 DataAccessPages(1),依此类推。如果在打开了 Page1 后打开 Page2,那么,在 DataAccessPages集合中,Page2 将会通过它的索引 DataAccessPages(1) 来引用。如果此时关闭了 Page1,那么,在 DataAccessPages集合中,Page2 将会通过索引 DataAccessPages(0) 来引用。

注意   若要列出数据库中所有(不管是打开的还是关闭)的数据访问页,可列举CurrentProject对象的AllDataAccessPages集合。然后,可使用每个单独的AccessObject对象的Name属性返回数据访问页的名称。

无法在 DataAccessPage集合中添加或删除 DataAccessPages对象。

下面的示例将创建一个新的数据访问页,并且设置某些属性:


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集合中每个数据访问页的名称。


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

上页:Access VBA教程:Controls集合 下页:Access VBA教程:FormatConditions集合

Access VBA教程:DataAccessPages集合

Access VBA教程:FormatConditions集合 Access VBA教程:Forms集合
Access VBA教程:Modules集合 Access VBA教程:Pages集合
Access VBA教程:Properties集合 Access VBA教程:References集合
Access VBA教程:Reports集合 Access VBA教程:Microsoft Access 的“自动化”功能
Access VBA教程:颜色生成器 Access VBA教程:转换类库数据库和加载项
Access VBA教程:转换 Microsoft Access 表、窗体和报表 Access VBA教程:自定义方法和属性
Access VBA教程:窗体 Access VBA教程:窗体的节
Access VBA教程:隐藏属性 Access VBA教程:索引
Access VBA教程:语言专用的属性和方法 Access VBA教程:DoCmd对象的宏操作和方法
Access VBA教程:新增对象 Access VBA教程:编译性能的改善
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号