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

　　fOpenRemoteReport_Exit:

　　On Error Resume Next

　　objaccess.Quit

　　Set objaccess = Nothing

　　Exit Function

　　fOpenRemoteReport_Err:

　　fOpenRemoteReport = False

　　Select Case Err.Number

　　Case 7866:

　　' mdb 已经被用独占方式打开

　　MsgBox "该数据库：" & strMDB & _

　　vbCrLf & "已经被用独占方式打开！" & vbCrLf _

　　& vbCrLf & "请重新用共享方式打开，再试一次！", _

　　vbExclamation + vbOKOnly, "不能打开数据库"

　　Case 2103:

　　' 报表不存在

　　MsgBox "在这个" & strMDB & "数据库中不存在该报表：" & strReport & _

　　vbCrLf & vbCrLf , _

　　vbExclamation + vbOKOnly, "报表不存在"

　　Case 7952:

　　' 用户关闭了这个 mdb

　　fOpenRemoteReport = True

　　Case Else:

　　MsgBox "错误#: " & Err.Number & vbCrLf & Err.Description, _

　　vbCritical + vbOKOnly, "运行时错误"

　　End Select

　　Resume fOpenRemoteReport_Exit

　　End Function

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。