Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

身份证号码输入错误时提示,并且出现了调试或者结束的提示

爱在深秋  发表于:2008-07-26 18:19:27  
复制

我的一个身份证号码输入后自动从所输入的号码中提示出生年月、性别、年龄信息,今天才发现一个问题,在我输入身份证是如350426137801187010时,就是出生年月的前两位位太大了,本来是19的,输入成“13”完了,提示值太大提示,能否让它只提示身份证号码出错的提示,而不出现可以调试的情况,如果有的人不懂的代码,按了调试,出现的很多代码窗口,会怕死人的,以为软件怎么了?能否帮我解决这个问题!

 

Top
符鸿敏 发表于:2008-07-26 23:33:20

出错代码是"-2147352567”吗?

设置一个出错处理代码

On Error GoTo xx

Me.Refresh

xx:

If Err.Number = "-2147352567" Then

  MsgBox "身份证号码输入错误,请重新输入!"

  Err.Clear

   End If

 



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