请教日期类型字段如何自定义输入错误提示.

tmtming · 发表于 2012-10-12 23:44:00

文本框绑定表字段为日期型,当输入非法日期时,想要自定义错误提示,而不是ACCESS的那个提示.应该怎样写语句?

sxgaobo · 发表于 2012-10-13 10:57:09

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:12

学习了

tmtming · 发表于 2012-10-15 19:23:53

多谢sxgaobo ,问题解决了.

andymark · 发表于 2012-10-15 19:53:38

if not isdate(me.日期文本框) then
msgbox "输入的日期格式有误！"
me.日期文本框.setfocus
exit for
end if

purplerose · 发表于 2015-8-4 21:05:42

{:soso_e179:}不错

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 请教日期类型字段如何自定义输入错误提示.

群介绍
主题无相 (随机显示版	同地区群块其他地区)