请教如何去除系统报错信息显示自定义信息？

kshtydyang

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

gdfsslec

在更新前判断输入的内容是否是数值，用消息框提示

WDLRCZT

用IsNumeric 函数
      

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

语法

IsNumeric(expression)

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

说明

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

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

kshtydyang

是这样写吗?为什么还不行呢...请指教谢谢
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

Private Sub NUM_AfterUpdate()

pengkuo

难度有点高啊？？？？？