access 97 以后的版本给了我们一个新的方法: OpenCurrentDatabase, 下列代码将使用这种方法来实现打开外部数据库中的报表。

　　Private Declare Function apiSetForegroundWindow Lib "user32" _

　　Alias "SetForegroundWindow" _

　　(ByVal hwnd As Long) _

　　As Long

　　Private Declare Function apiShowWindow Lib "user32" _

　　Alias "ShowWindow" _

　　(ByVal hwnd As Long, _

　　ByVal nCmdShow As Long) _

　　As Long

　　Private Const SW_MAXIMIZE = 3

　　Private Const SW_NORMAL = 1

　　Function fOpenRemoteReport(strMDB As String, strReport As String, _

　　Optional intView As Variant) _

　　As Boolean

　　' strMDB: 外部数据库名称(含路径)

　　' strReport: 报表名称

　　' intView: 报表的打开方式

　　Dim objAccess As access.Application

　　Dim lngRet As Long

　　On Error GoTo fOpenRemoteReport_Err

　　If IsMissing(intView) Then intView = acViewPreview

　　If Len(Dir(strMDB)) > 0 Then

　　Set objAccess = New access.Application

　　With objaccess

　　lngRet = apiSetForegroundWindow(.hWndaccessApp)

　　lngRet = apiShowWindow(.hWndaccessApp, SW_NORMAL)

　　' 第一次调用ShowWindow似乎不做任何事情

　　lngRet = apiShowWindow(.hWndaccessApp, SW_NORMAL)

　　.OpenCurrentDatabase strMDB

　　.DoCmd.OpenReport strReport, intView

　　Do While Len(.CurrentDb.Name) > 0

　　DoEvents

　　Loop

　　End With

　　End If