怎样打开外部数据库中的报表
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
多项活动
环
以…结尾
如果…就会结束
位律师回复
0条评论