如何用代码打开另一个MDB中非弹出式的报表

huangxiuwen

求如何用代码打开另一个MDB中非弹出式的报表的例子。

Henry D. Sy

Dim appAccess As Access.Application

Sub DisplayForm()
    ' 将字符串初始化为数据库路径。
    Const strConPathToSamples = "C:\Program " _
        & "Files\Microsoft Office\Office\Samples\"

    strDB = strConPathToSamples & "Northwind.mdb"
    ' 新建 Microsoft Access 实例。
    Set appAccess = _
        CreateObject("Access.Application")
    ' 在 Microsoft Access 窗口中打开数据库。
    appAccess.OpenCurrentDatabase strConPathToSamples
    ' 打开“订单”报表。
    appAccess.DoCmd.OpenReport "订单"
End Sub

huangxiuwen

感谢版主