版主,我之前的设计是这样的:直接在该字段的“更新前”事件写下代码:
If Me.日期 > DateAdd("m", 3, Date) Then '防止跨年录入的时候输错日期
MsgBox "日期大于当天3个月,请核对输入日期", vbOKOnly, "提示框"
Me.日期.Undo
Cancel = -1
Exit Sub
End If
这样子的话,我只要填错日期,就会undo,让我重新输入,现在我是想能否在这个“更新前”的事件中更改一下语句,让它可以自动帮我纠正,但是只要在“日期”字段(不是什么按钮)的“更新前”事件中,只要重新赋值给“日期”字段,就会提示出错