access文本框是只可以輸入值嗎?
如果是只希望輸入[0,100)內的數字,可以試試設置text1的有效性規則為:
>=0 and <100
或者,在text1的更新前事件中寫以下代碼:
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If Len(Me.Text1) > 2 Or Not IsNumeric(Me.Text1) Then
MsgBox "輸入錯誤,請重新輸入!"
Cancel = True
End If
End Sub
access文本框是只可以輸入值嗎?
如果是只希望輸入[0,100)內的數字,可以試試設置text1的有效性規則為:
>=0 and <100
或者,在text1的更新前事件中寫以下代碼:
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If Len(Me.Text1) > 2 Or Not IsNumeric(Me.Text1) Then
MsgBox "輸入錯誤,請重新輸入!"
Cancel = True
End If
End Sub