Office中国论坛/Access中国论坛

标题: 自动退出 [打印本页]

作者: runzhong 时间: 2008-5-21 16:00
标题: 自动退出
如何在报表无数据时，就自动退出报表？

作者: hi-wzj 时间: 2008-5-21 18:37
报表中有一个“无数据”事件，在该事件中输入close的命令即可。

作者: xuwenning 时间: 2008-5-22 08:27
报表中有一个“无数据”事件，学到了[:50]

作者: runzhong 时间: 2008-5-22 09:10
是不是这样：
private sub　report_nodata(cancel as integer)
docmd.close
end sub
但有错误，在docmd.close这里出错，应怎样改？

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

作者: fswxs 时间: 2008-5-23 14:19
Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next

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

End Sub

作者: dell600 时间: 2008-5-28 20:23
感谢各位大侠赐教
学习了

作者: leijiqiang 时间: 2009-7-30 15:47
不好用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)