Office中国论坛/Access中国论坛

标题: 问个菜鸟问题,如何控制一个文本框的输入值的长度,请高手指点(急) [打印本页]

作者: lifeboy2002 时间: 2006-5-31 18:26
标题: 问个菜鸟问题,如何控制一个文本框的输入值的长度,请高手指点(急)
比如,在一个文本框,要规定只能输入<=10 bit 的字符?我试过用掩码,但是掩码规定一定要有掩码的长度,否则会报错,我是想<= 规定的长度都可以![em06][em06]

作者: 一点通 时间: 2006-5-31 18:35
Private Sub 文本7_Change()
If Len(Me.文本7.Text) = 10 Then SendKeys "{enter}"
End Sub

作者: lifeboy2002 时间: 2006-5-31 18:42
高手,谢谢你的回答,再问一下,就设置字段的长度,要么编写文本框的掩码,能达到我要求的那种效果吗?

作者: 一点通 时间: 2006-5-31 18:57
编写掩码变成绝对长度了

作者: lifeboy2002 时间: 2006-5-31 19:03
谢谢班主的回答,再问一下高手,我比如要输入10位以后我再输入,焦点不要跳到下一个文本框,而只是输入无效,怎么实现?

Private Sub 文本7_Change()
If Len(Me.文本7.Text) = 10 Then SendKeys "{enter}"
End Sub

中的Then SendKeys "{enter}"应该怎么修改?谢谢!

作者: lifeboy2002 时间: 2006-5-31 21:18
高手求救![em06]

作者: fan0217 时间: 2006-5-31 21:28
这句的意思是按下键盘上面的回车键。

看来你需要补补基础知识了，可以使用msgbox来提示。

作者: lifeboy2002 时间: 2006-5-31 21:36
楼上的,问一下怎么完成?我的需求是在一个文本框,要规定只能输入<=10 bit 的字符?我是想<= 规定的长度都可以,而且输完规定的长度后,焦点不跳到下个文本框,只是输入的无效?有好的解决方案吗?请教高手?还有问一下楼上的,除了要用msgbox来提示,还有别的解决办法吗?

作者: 一点通 时间: 2006-5-31 21:42
可以修改这句代码SendKeys "{enter}",改为文体框失效,这样就不能再输入数据了

作者: lifeboy2002 时间: 2006-5-31 21:49
谢谢高手的回答,但是如果文体框失效后,我就不能修改上面输进去的数据了,比如我输了个长度是10位的数据,等准备要输11位的时候文本框已经失效,但是我发现上面输入数据是错误的,就不能修改了,在ACCESS中有没有使输入无效的语句?

作者: 一点通 时间: 2006-5-31 22:04
If Len(Me.文本7.Text) >= 10 Then
MsgBox "你只能输入10位数,多出的数据无效"
Me.文本7 = Left(Me.文本7.Text, 10)
End If

作者: lifeboy2002 时间: 2006-5-31 22:15
谢谢一点通能这么及时的回答,多谢!

作者: lifeboy2002 时间: 2006-5-31 23:33
高手再弱弱的,问一下,不用变通的办法,,文本框要规定只能输入<=10 bit 的字符,能做到类似掩码的效果吗?不用使用msgbox来提示或使文本框无效的变通办法?有别的实现办法吗?

作者: 海狸先生 时间: 2006-6-1 01:41
我晕，输入掩码设为　CCCCCCCCCC　　不就行了？？,没必要这么麻烦吧

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)