怎样打开外部数据库中的报表

access 97之后的版本给了我们一个新的方法:OpenCurrentDatabase。以下代码将使用此方法打开外部数据库中的报表。

私有声明函数apiSetForegroundWindow库“user 32”u

别名“SetForegroundWindow”

(ByVal hwnd As Long) _

一样长

私有声明函数API show window Lib " user 32 " u

别名“ShowWindow”

(ByVal hwnd As Long，_

ByVal nCmdShow As Long) _

一样长

私有常量SW_MAXIMIZE = 3

私有常量SW_NORMAL = 1

函数fopenremoteport(strMDB为字符串，strReport为字符串，_

可选intView作为变体)_

作为布尔值

StrMDB:外部数据库名(包括路径)

StrReport:报表名称

IntView:如何打开报表？

Dim objAccess As access。应用

暗淡无光一样长

出错时转到fOpenRemoteReport_Err

如果IsMissing(intView ),则intView = acViewPreview

如果Len(Dir(strMDB)) > 0，则

Set objAccess = New access。应用

伴随着

lngRet = apiSetForegroundWindow(。hWndaccessApp)

lngRet = apiShowWindow(。hWndaccessApp，SW_NORMAL)

对ShowWindow的第一次调用似乎没有任何作用。

lngRet = apiShowWindow(。hWndaccessApp，SW_NORMAL)

。OpenCurrentDatabase strMDB

. DoCmd.OpenReport strReport，intView

do While Len .(current db . name)> 0

多项活动

环

以…结尾

如果…就会结束