当在窗体中输入2017-2-29或2017-4-31日时，弹出运行时错误，这个错误应该是生产日期输入错误，如何改成当“生产日期”输入错误时弹出一个提示框“输入日期不正确，请从新输入”确定从新输入日期

中原一剑　发表于：2018-03-28 10:00:00 　

复制

点击下载此附件

Top

朱先生发表于：2018-03-28 10:55:17

2月29日不是每年有的，4月是没有31日的

Top

chinasa 发表于：2018-03-28 14:03:52

在生产日期更新后事件中加入以下代码

If IsDate(Me.生产日期) = 0 Then
MsgBox "请输入合法日期"
End If

Top

COBY CHEN 发表于：2018-03-28 15:12:12

试一下捕捉错误号，改成你要的文字。

可参考 http://www.accessoft.com/article-show.asp?id=457

Top

中原一剑发表于：2018-03-30 20:08:36

Private Sub 保质期_AfterUpdate()
If IsDate(Me.生产日期) = 0 Then
MsgBox "请输入合法日期", vbQuestion + vbYesNo, "提示"
Me.生产日期 = ""
'Me.ID.SetFocus
Me.生产日期.SetFocus
Exit Sub
End If
With Me

.有效日期 = DateAdd("m", [保质期], [生产日期])
End With
End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

当在窗体中输入2017-2-29或2017-4-31日时，弹出运行时错误，这个错误应该是生产日期输入错误，如何改成当“生产日期”输入错误时弹出一个提示框“输入日期不正确，请从新输入”确定从新输入日期