SetUp Maximum Length
- Thread starter mr moe
- Start date
Mile-O
Back once again...
- Local time
- Today, 03:50
- Joined
- Dec 10, 2002
- Messages
- 11,305
In the KeyPress() event of the textbox:
Put the number you want to limit the textbox to in the textbox's Tag property.
Code:
Static strValue As String
If Len(strValue) = CInt(Me.txtTitle.Tag) Then
KeyAscii = 0
Exit Sub
End If
strValue = strValue & Chr(KeyAscii)Put the number you want to limit the textbox to in the textbox's Tag property.
Mile-O-Phile,
I used your method instead because it's a password field that I'm working on, the only thing is that when I enter the value I can't back space it or edit it unless I close the form and open it again, any suggestions. Thanks.
I used your method instead because it's a password field that I'm working on, the only thing is that when I enter the value I can't back space it or edit it unless I close the form and open it again, any suggestions. Thanks.
dcx693
Registered User.
- Local time
- Yesterday, 22:50
- Joined
- Apr 30, 2003
- Messages
- 3,263
This may or may not help unless you have the Access Developers Handbook: Limited a memo field to 1000 characters
Mile-O
Back once again...
- Local time
- Today, 03:50
- Joined
- Dec 10, 2002
- Messages
- 11,305
My fault for being hasty at times:
Change the code to this:
And set your textbox's InputMask property to Password.
Change the code to this:
Code:
If KeyAscii = 32 Then KeyAscii = 0
If Len(Me.MyText.Text) = CInt(Me.MyText.Tag) Then
If KeyAscii <> 8 Then KeyAscii = 0
End IfAnd set your textbox's InputMask property to Password.
Mile-O-Phile,
Sorry if I'm bothering you, but there is one bug with the code, the first time you enter a number, you get an error message, this happens on the first key press, then if i click end on the error message window it will work again.
Sorry if I'm bothering you, but there is one bug with the code, the first time you enter a number, you get an error message, this happens on the first key press, then if i click end on the error message window it will work again.
