标题: 请教日期类型字段如何自定义输入错误提示. [打印本页] 作者: tmtming 时间: 2012-10-12 23:44 标题: 请教日期类型字段如何自定义输入错误提示. 文本框绑定表字段为日期型,当输入非法日期时,想要自定义错误提示,而不是ACCESS的那个提示.应该怎样写语句?作者: sxgaobo 时间: 2012-10-13 10:57
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2113 Then
Response = acDataErrContinue
MsgBox "输入的日期格式有误！（请使用标准格式：XXXX-XX-XX）", vbInformation, "系统提示"
End If
End Sub 作者: bbpst 时间: 2012-10-14 18:49
学习了作者: tmtming 时间: 2012-10-15 19:23
多谢sxgaobo ,问题解决了.作者: andymark 时间: 2012-10-15 19:53
if not isdate(me.日期文本框) then
msgbox "输入的日期格式有误！"
me.日期文本框.setfocus
exit for
end if作者: purplerose 时间: 2015-8-4 21:05
{:soso_e179:}不错