Office中国论坛/Access中国论坛

标题: 如何限制文本框的字节数 [打印本页]

---

作者: yanwei82123300    时间: 2012-6-30 14:42
标题: 如何限制文本框的字节数
如何限制文本框的字节数？我想规定文本框为8位，多一位都不能输入，请问如何做到，谢谢

---

作者: Henry D. Sy    时间: 2012-6-30 15:55
在更改事件中判断文本框的text长度

---

作者: Henry D. Sy    时间: 2012-6-30 16:07

1. Private Sub Text0_Change()
   
2.     Dim str As String
   
3.     Dim i As Integer
   
4.     If Not IsNull(Me.Text0.Text) Then
   
5.         str = Me.Text0.Text
   
6.         i = Len(str)
   
7.         If i > 8 Then
   
8.             MsgBox "请不要输入超过8个字符"
   
9.             str = Left(str, 8)
   
10.             Me.Text0 = str
    
11.         End If
    
12.     End If
    
13. End Sub

复制代码

[attach]49545[/attach]

---

作者: yanwei82123300    时间: 2012-6-30 16:28
{:soso_e181:}Henry D. Sy 老师谢谢帮助

---

作者: Henry D. Sy    时间: 2012-6-30 16:56

yanwei82123300 发表于 2012-6-30 16:28
Henry D. Sy 老师谢谢帮助

http://www.office-cn.net/thread-113018-1-2.html
这个帮你增加了
国庆，元旦，五一，春节，端午，中秋

---

作者: yanwei82123300    时间: 2012-6-30 18:34
Henry D. Sy 老师谢谢帮助

---

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

Powered by Discuz! X3.3