求助窗体textbox输入限制问题？？

jian82372387

请问一下在窗体里如何在成绩的texbox2里成绩输入限制是<=100，如果输入大于100 msgbox输入有误，并退出SUB过程啊

02761752696

窗体中加入这个试试

darklesson

Private sub textbox1_change()
dim val%
on error goto err:
val = textbox1.text
if val > 100 then goto err:
exit sub:
err:
if val > 0 then msgbox "错误:" & val
textbox1.text = vbnullstring
end sub

tanglf188

不想画窗体也可考虑InputBox方法
    Do
        innum = Application.InputBox(prompt:="请输入成绩", Type:=1)
        If innum = False Then
            MsgBox "不能取消！"
        Else
            Select Case innum
                Case 0 To 100
                    MsgBox "输入的成绩：" & innum
                    Exit Do
                Case Else
                    MsgBox "成绩范围：0-100"
            End Select
        End If
    Loop