方法1:有效性规则: Len(Nz([Text1]))<=10
有效性文本:最大文本长度10个字符.
方法2:
Private Sub Text1_BeforUpdate(Cancel As Integer)
If Len(Nz(Text1.Text))>10 Then
Msgbox "最大文本长度10个字符"
Cancel=True
End If
End Sub
方法3:
Private Sub Text0_KeyPress(KeyAscii As Integer)
If Len(Nz(Text0.Text)) = 10 Then
KeyAscii = 0
End If
End Sub
方法很多,就不一一列举了