Office中国论坛/Access中国论坛

标题: [求助]关闭打印预览的代码 [打印本页]

作者: gdfsslec 时间: 2006-8-14 16:48
标题: [求助]关闭打印预览的代码
如题。打开报表预览后，有时候因为没有数据会报错，想加一段代码，遇到错误提示后，关闭预览。

作者: 一点通 时间: 2006-8-14 17:35
应该在打开预览报表前处理，不应在出现报错后再处理

作者: tz-chf 时间: 2006-8-14 20:53
nodata事件

Private Sub Report_NoData(Cancel As Integer)
MsgBox "无数据！", vbExclamation, "注意"
Cancel = True

End Sub

作者: gdfsslec 时间: 2006-8-14 22:29
谢谢tz-chf版主，让我又学会了一招：无数据事件的处理。

我另加了一段：

On Error GoTo Err

DoCmd.OpenReport "客户对帐单", acPreview
Exit_报表预览_Click:
Exit Sub
Err:
Resume Exit_报表预览_Click

这样就屏蔽了cancel 后出现的出错调试信息。

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