ACCESS 怎样让text1文本框只能输入数字,且最多2位,多的输不进去,也不能输入汉字。

见标题。(退格可以输入)用代码。

按以上设置text1的输入遮罩(我的是繁体版,名称和简体的不一样,你找对应属性)

或者,用vba写Text1_Change事件

追问

说了不用掩码,和验证规则的。

追答Private Sub Text1_Change()
    If Len(Text1.Text) > 2 Then
        SendKeys "{BACKSPACE}"
    ElseIf Not IsNumeric(Text1.Text) Then
        SendKeys "{BACKSPACE}"
    End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 Then
        If Len(Text3.Text) >= 2 Then
            KeyAscii = 0
        ElseIf (KeyAscii < 48 Or KeyAscii > 57) Then
            KeyAscii = 0
        End If
    End If
End Sub

追问

.text可以改成.value吗,为什么? 我用.text时出错。能举例说明吗?
这里还有个问题 新开的题 :2054268719114252307

追答

.text不会有错呀,.value不行的
你的错误什么提示?

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网