VBA基础
Access限制文本框的输入长度
2013-10-12 16:26:59
之前，我们发过文本框禁止输入某个字符。现在我们来限制文本框的字节数，比如：想规定文本框为8位，多一位都不能输入
有的时候确实是要限定字符串的长度的。太长影响外观，数据也不利于整理。
限定输入长度，主要在更改事件中判断文本框的text长度就可以
Private Sub Text0_Change()
Dim str As String
Dim i As Integer
If Not IsNull(Me.Text0.Text) Then
str = Me.Text0.Text
i = Len(str)
If i > 8 Then
MsgBox "请不要输入超过8个字符"
str = Left(str, 8)
Me.Text0 = str
End If
End If
End Sub