Access VBA教程:DataAccessPage对象

多个对象
DataAccessPage
WebOptions

DataAccessPage对象引用特定的 Microsoft Access数据访问页。

使用 DataAccessPage对象

DataAccessPage对象是 DataAccessPages集合的一个成员,DataAccessPages集合是所有当前打开的数据访问页的集合。在 DataAccessPages集合中,单个数据访问页都从零开始索引。通过按名称或按其在集合中的索引引用数据访问页,可以引用 DataAccessPages集合中的单个 DataAccessPage对象。如果要引用 DataAccessPages集合中的特定数据访问页,最好按名称引用它,因为数据访问页的集合索引可能会变动。如果数据访问页名称中包含空格,那么必须将名称用方括号 ([ ]) 括起来。

语法 示例
DataAccessPages!pagename DataAccessPages!SalePage
DataAccessPages![page name] DataAccessPages![Sale Page]
DataAccessPages("pagename") DataAccessPages("Sale Page")
DataAccessPages(index) DataAccessPages(0)


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


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教程:CustomControl对象 下页:Access VBA教程:DefaultWebOptions对象

Access VBA教程:DataAccessPage对象

Access VBA教程:DefaultWebOptions对象 Access VBA教程:DoCmd对象
Access VBA教程:Form对象 Access VBA教程:FormatCondition对象
Access VBA教程:GroupLevel对象 Access VBA教程:Hyperlink对象
Access VBA教程:Image对象 Access VBA教程:Label对象
Access VBA教程:Line对象 Access VBA教程:ListBox对象
Access VBA教程:Module对象 Access VBA教程:ObjectFrame对象
Access VBA教程:OptionButton对象 Access VBA教程:OptionGroup对象
Access VBA教程:Page对象 Access VBA教程:PageBreak对象
Access VBA教程:Printer对象 Access VBA教程:Printers集合
Access VBA教程:Rectangle对象 Access VBA教程:Reference对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号