HELP！！！！sos

Question

1、VB报出214746259的错误，不知道这个错误号码代表什么?怎么解决这个错误！
2 我希望我的TEXTBOX只容许输入数字，而不容许输入字符，用TEXT的什么事件啊！

Answer 1

1.你在程序中 加上on error goto A
                 exit sub
                 A:
    MsgBox err.Description
    Exit Sub2.
Private gNumbers As StringPrivate Sub Form_Load()
    gNumbers = "1234567890" + Chr(8) + Chr(45) + Chr(46)  '控制TextBox框只能输入数字的字符串
End Sub
Private Sub TxtSL_KeyPress(KeyAscii As Integer)   'TxtSL是控件名称
    If InStr(gNumbers, Chr(KeyAscii)) = 0 Then KeyAscii = 0
    If KeyAscii = 46 And InStr(TxtSL.Text, ".") <> 0 Then KeyAscii = 0    '"."点号只能出现一次
    If KeyAscii = 45 Then   '"-"号必须放在第一位,且只能出现一次
        If InStr(TxtSL.Text, "-") <> 0 Then
            KeyAscii = 0
        Else
            TxtSL.SelStart = 0
        End If
    End If
    
End Sub

Answer 2

谢谢楼上的大哥解答了我的第二问，但是第一个问题还是没有解答！我的意思是
程序报出214746259的错误，不知道这个错误号码代表什么?怎么解决这个错误！
214746259据网上的资料是关于ODBC的问题，我不知道该怎么解决

Answer 3

Private Sub Text1_Validate(Cancel As Boolean)
If Text1Text <> "" And IsNumeric(Text1.Text) = False Then
MsgBox "此处只能输入数字！", vbOKOnly, "错误"
Cancel = True
End If
End Subvalidate 事件是在该控件失去焦点之前的最后一个事件，该实践的Cancel属性为真时
系统会将焦点锁定在该控件。isnumeric函数是判断字符串是否是一个合法的数字。