Office中国论坛/Access中国论坛

标题: 请教如何去除系统报错信息显示自定义信息？ [打印本页]

作者: kshtydyang 时间: 2007-11-10 22:40
标题: 请教如何去除系统报错信息显示自定义信息？
Text文本框是绑定数据来源,数据类型是数字,当输入非数字型时,系统会出现报错信息
"你为该字段输入值无效"
例如你要能在数值字段中输入了文本或大于fieldsize设置所允许的数值。
请教如何去除以上系统报错信息，显示自定义错误信息？谢谢各位高手了...

作者: gdfsslec 时间: 2007-11-10 23:41
在更新前判断输入的内容是否是数值，用消息框提示

作者: WDLRCZT 时间: 2007-11-10 23:58
用IsNumeric 函数

返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。

作者: kshtydyang 时间: 2007-11-11 21:34
标题: 回复WDLRCZT 的帖子
是这样写吗?为什么还不行呢...请指教谢谢
Private Sub NUM_BeforeUpdate(Cancel As Integer)
   If IsNumeric(Me.NUM) = False Then
      MsgBox "你输入的不是一个有效数字"
      Cancel = True
      Me.dsfkd.Undo
   End If
End Sub

作者: Henry D. Sy 时间: 2007-11-12 09:10
Private Sub NUM_AfterUpdate()

作者: pengkuo 时间: 2007-11-13 01:02
难度有点高啊？？？？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)