报表中从切换面板取用户录入的日期设计好“无数据”事件但遇到问题

bluebird73

　　报表中从切换面板取用户录入的日期设计好“无数据”事件但遇到问题：就是有4张报表设计了从切换面板上提取用户输入的日期数据，如果用户没有输入，就设计了一个“无数据”事件，可是这个功能时灵时不灵，有时可以成功运行“无数据”事件代码，出现一个警示框提醒用户输入日期，有时却不行，说是找不到这个“无数据”代码对应的模块。
　　这段代码如下：

Private Sub Report_NoData(Cancel As Integer)

MsgBox "请点击上方空白框处日历图标输入日期...", vbExclamation, "No Records"
Cancel = True
End Sub

　　出问题时报错如下：

作为事件属性设置而输入的表达式“无数据”产生了如下错误：模块未找到。