如何调用代码实现输入报错？

董秀杰　发表于：2009-07-09 21:55:56 　

比如一个文本框Text1,我希望其中只能输入0-9数字，当输入adn字母或者其他符号时，给出报错信息。

比如    If %%%%%%%%%%%(lbId) Then
           MsgBox "数据输入请从数字0-9中选择!", vbCritical, "提示："
           Me.lbId.SetFocus
           Exit Sub
       End If

图中蓝色阴影表示代码，请高手指点一下，谢谢！

蟹仔发表于：2009-07-09 22:06:01

用 isnumeric函数就可以了例如：

If IsNumeric(Me.Text0) Then
MsgBox "数字"
Else
MsgBox "非数字"
End If
当然，你还可以不写代码实现这个效果，就是在文本框格式设定为常规数字。

董秀杰发表于：2009-07-09 22:12:34

谢谢，我试试

董秀杰发表于：2009-07-09 22:19:06

好像不行，仍然谢谢你

蟹仔发表于：2009-07-09 22:42:28

那问题肯定出在其他地方。判断是否数字的代码肯定是没错的。要不你新建个窗口，只保留1个文本框跟按纽试试。

Access爱好者发表于：2009-07-10 08:37:18

看看这个例子行不行：

点燃一支烟发表于：2009-07-10 10:28:30

董秀杰发表于：2009-07-10 10:48:09

感谢各位帮助，问题仍在解决中，补充：Text属性我设置了格式为货币型，

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

Access交流中心