向表内添加数据时日期不规则时提示

亲峰　发表于：2010-09-27 08:45:25 　

向表内添加数据时日期不规则时提示

输入身份证号 230101998741102554 日期不规则
在向出生日期里添加数据的时候就会出错

请老师帮忙当日期不规则时自动提示。

煮江品茶发表于：2010-09-27 09:01:06

dim mydate as string

mydate=mid(230101998741102554,6,8)

mydate=mid(mydate,1,4) & "/" & mid(mydate,5,2) & "/" & mid(mydate,7,2)

if isdate(mydate)=false then

msgbox "日期错误！"

end if

亲峰发表于：2010-09-27 09:18:30

不是的不单单是限制 230101998741102554 这个号意思就是只要是出生日期那个框内只要是被添加一个不规则的日期时才提示。

请老师帮忙以实例方式指点。谢谢

樱花发表于：2010-09-27 09:35:08

你把这个数换成一个变量不就可以了吗

煮江品茶发表于：2010-09-27 09:43:11

亲峰同志：你就不能把230101998741102554 换成一个变量或者窗体控件变量吗？

亲峰发表于：2010-10-02 10:20:24

老师，不太会，请您帮帮忙，谢谢。

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

Access交流中心