自动退出

runzhong

如何在报表无数据时，就自动退出报表？

leijiqiang

不好用

dell600

感谢各位大侠赐教
学习了

fswxs

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next

    MsgBox "无数据！", vbExclamation, "提示"
    Cancel = True
   
End Sub

runzhong

改成如下
private sub　report_nodata(cancel as integer)
cancel=true
end sub
它又会弹出一个提示说"您使用了关闭一个更改了的窗体,然后在对话框中选择了取消",我怎样才能去掉这个提示?

runzhong

是不是这样：
private sub　report_nodata(cancel as integer)
docmd.close
end sub
但有错误，在docmd.close这里出错，应怎样改？

xuwenning

报表中有一个“无数据”事件，学到了[:50]

hi-wzj

报表中有一个“无数据”事件，在该事件中输入close的命令即可。