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?

[CDMAPoster]

Randy Harris wrote:

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.

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********@Fort uneJames.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:::mgf0 0 <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.