A97: Simplest way to limit unbound textbox to 200-chars entered MAX

[MLH]

Can I somehow set a max length of chars entered
into an unbound textbox control?

[fredg]

On Mon, 13 Feb 2006 12:12:55 -0500, MLH wrote:

Can I somehow set a max length of chars entered
into an unbound textbox control?

The below code will limit the number of characters to 10.
Code the unbound text control's Change event:

Private Sub ControlName_Change()
If Len([ControlName].Text) = 11 Then
MsgBox "No more then 10 characters are permitted."
[ControlName].Text = Left([ControlName].Text, 10)
End If

End Sub

Change [ControlName] to whatever the actual name is of your unbound
control.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

[MGFoster]

MLH wrote:

Can I somehow set a max length of chars entered
into an unbound textbox control?

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

One way is in the BeforeUpdate event of the control:

Private Sub TextBoxName_BeforeUpdate(Cancel As Integer)

If Not IsNull(Me!TextBoxName) Then
If Len(Me!TextBoxName)>200 Then
MsgBox "Too Long. Must be <= 200 characters"
Cancel = True
End If
End If

End Sub
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQ/DGP4echKqOuFEgEQI2/ACg1OrLoU4dmt08QDGLHaI8hLoDu/oAoKP2
e/mwmh05UNq1fZERevGI9g3Z
=389V
-----END PGP SIGNATURE-----

[CDMAPoster]

MLH wrote:

Can I somehow set a max length of chars entered
into an unbound textbox control?

I might as well throw in what I use:

http://groups.google.com/group/comp....a0bbcaf3f5428c

James A. Fortune
CD********@FortuneJames.com

[MLH]

Thx. Was hoping that I could monitor this during actual entry
of characters into the textbox. IE, on the 200th character, it
wouldn't allow subsequent keystrokes to place chars in the
control.

[MGFoster]

MLH wrote:

Thx. Was hoping that I could monitor this during actual entry
of characters into the textbox. IE, on the 200th character, it
wouldn't allow subsequent keystrokes to place chars in the
control.

You could also set the Input Mask to:

_;;

Enter the underline character 200 times instead of the 1 time in the
example.

When the user tries to enter the 201 character a beep will sound.
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[Randy Harris]

Lots of good solutions - here's my favorite:
Private Sub Notes_memo_AfterUpdate()
Me.Notes_memo = Left(Me.Notes_memo, 200)
End Sub

Private Sub Notes_memo_KeyPress(KeyAscii As Integer)
If Len(Me.Notes_memo.Text) > 200 Then
If KeyAscii > 31 Then KeyAscii = 0
End If
End Sub

I use this belt/suspenders approach in case someone does a copy/paste into
the control.

--
Randy Harris
tech at promail dot com
I'm pretty sure I know everything that I can remember.
"MLH" <CR**@NorthState.net> wrote in message
news:8q********************************@4ax.com...

Thx. Was hoping that I could monitor this during actual entry
of characters into the textbox. IE, on the 200th character, it
wouldn't allow subsequent keystrokes to place chars in the
control.

[MLH]

Had already tried that. Presented its own twists 'n turns.
Using something like &x200;;" " - the user finds his insertion
point at the END of all 200 spaces. Wouldn't be so bad if I
could make that insertion point somehow sit at the BEGINNING
of all those spaces. Haven't quite figured that one out yet.

[CDMAPoster]

MLH wrote:

Had already tried that. Presented its own twists 'n turns.
Using something like &x200;;" " - the user finds his insertion
point at the END of all 200 spaces. Wouldn't be so bad if I
could make that insertion point somehow sit at the BEGINNING
of all those spaces. Haven't quite figured that one out yet.

I haven't tried it for that specific case but this post may help:

http://groups.google.com/group/micro...b8f5b992c1b5d4

James A. Fortune
CD********@FortuneJames.com

[fredg]

On Mon, 13 Feb 2006 14:01:38 -0500, MLH wrote:

Thx. Was hoping that I could monitor this during actual entry
of characters into the textbox. IE, on the 200th character, it
wouldn't allow subsequent keystrokes to place chars in the
control.

You can count the number of characters as you enter them.
Add another unbound text control.

Change the previous Change event code to:

Private Sub ControlName_Change()

' To count up to the maximum number of characters
[OtherControl] = len(Me![ControlName].Text)

' Or to count down from 10 to the remaining number of characters
' [OtherControl] = 10 - len(Me![ControlName].Text)

If Len([ControlName].Text) = 11 Then
MsgBox "No more then 10 characters are permitted."
[ControlName].Text = Left([ControlName].Text, 10)
End If

End Sub
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

[CDMAPoster]

Randy Harris wrote:

Private Sub Notes_memo_AfterUpdate()
Me.Notes_memo = Left(Me.Notes_memo, 200)
End Sub

Private Sub Notes_memo_KeyPress(KeyAscii As Integer)
If Len(Me.Notes_memo.Text) > 200 Then
If KeyAscii > 31 Then KeyAscii = 0
End If
End Sub

I use this belt/suspenders approach in case someone does a copy/paste into
the control.

Excellent idea. I think I need to add the AfterUpdate suspenders to
what I have to ensure my backside stays covered when the belt breaking
copy/paste occurs.

James A. Fortune
CD********@FortuneJames.com

[MGFoster]

MLH wrote:

Had already tried that. Presented its own twists 'n turns.
Using something like &x200;;" " - the user finds his insertion
point at the END of all 200 spaces. Wouldn't be so bad if I
could make that insertion point somehow sit at the BEGINNING
of all those spaces. Haven't quite figured that one out yet.

Sorry, Instead of the underscore character use the "a" character instead:

a;;

Substitute "a" 200 times.
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[MLH]

I don't know how you figured it out, but that's perfect.
It just does the job. No annoying messages are needed.
Once the 200th char is entered, user hits a brick wall.
That's message enough for most folks.

Thx, MGFoster.