当运行报表时,如果它的数据源不包含任何记录,该报表将显示一个空页,即没有任何数据的页。这种情况下,您可能希望显示消息框,而根本不希望显示一个空白的报表。
方法一、使用嵌入的宏
在设计视图或布局视图中打开报表。
如果属性表未显示, 请按 F4 以显示它。
在该属性表上, 单击“事件”选项卡。
单击“无数据”。
单击...。
在“选择生成器”对话框中, 单击“宏生成器”,然后单击“确定”。
输入下表中的操作和参数。
操作 参数
MsgBox “未找到任何记录。”、“是”、“信息”、“无数据”
CancelEvent [无参数]
请注意,上表显示的是出现在“参数”列中的参数。它们实际是在“操作参数”下输入的,详见下表。
操作参数 值
消息 未找到任何记录。
发嘟嘟声 是
类型 信息
标题 无数据
单击“关闭”。
宏生成器关闭,“无数据”事件显示“[嵌入的宏]”。
保存并关闭报表。
方法二、利用报表的"无数据"属性,代码如下:
Private Sub Report_NoData(Cancel As Integer)
Beep
MsgBox "未找到任何记录。", vbInformation, "无数据"
DoCmd.CancelEvent
End Sub
下一次运行报表时,如果找不到任何记录,将显示此消息框。在消息框中单击“确定”时,报表取消,并且不显示空页。