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_Cha nge()
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_Bef oreUpdate(Cance l As Integer)

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

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

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

iQA/AwUBQ/DGP4echKqOuFEgE QI2/ACg1OrLoU4dmt08 QDGLHaI8hLoDu/oAoKP2
e/mwmh05UNq1fZERe vGI9g3Z
=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********@Fort uneJames.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:::mgf0 0 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[Randy Harris]

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

Private Sub Notes_memo_KeyP ress(KeyAscii As Integer)
If Len(Me.Notes_me mo.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**@NorthStat e.net> wrote in message
news:8q******** *************** *********@4ax.c om...

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********@Fort uneJames.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_Cha nge()

' 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