请教高手：报表无数据出错

liusirang

我在一个窗体中的命令按钮的点击事件中用了如下代码：
DoCmd.OpenReport "报表", acViewPreview, "", "", acNormal。
报表的无数据事件代码如下：
  Private Sub Report_NoData(Cancel As Integer)
           MsgBox "没有数据记录。", vbExclamation, "无数据"
           Cancel = True
    End Sub
在无数据时弹出"无数据"信息框。但随后弹出错误信息如下：
出现运行时错误‘2501’，这个OpenReport操作被取消。
如何避免。请高手指点下，先行谢过。

zyp

在命令按钮单击事件第一行加入:
on error resume next