如果您想判断一个数据库中的报表是否打开，您需要检查报表连接，如下函数可以做到。
如果返回true,则报表是打开，false则报表没有打开。
Function fCheckReport(strReportname As String) As Boolean
    Dim rpt As Report
    fCheckReport=False
    For Each rpt In Reports
        If rpt.Name=strReportName Then fCheckReport=True
    Next rpt
End Function