Which Event

[DS]

I have an unbound field that I type in. When the number of chracters
reach 18 I want a message box to pop up that tells you to stop. I don't
want any input beyond 18 chracters, less is ok.

Heres what I have...
Text0 is where the typing takes place. I tried after update, on chage
before update of the textbox but it only works after you take the focus
off of the textbox. Any help appreciated. Thanks, DS.

Me.Text6 = Len(Me.Text0)
If Me.Text6 > 18 Then
MsgBox "stop"
Else:
End If

 

[Douglas J. Steele]

Try the KeyPress event.

 

[DS]

Try the KeyPress event.

Didn't work. Shouldn't Text6 update after each new character is added
to Text0....?
Thnaks
DS

 

[Douglas J. Steele]

Didn't work. Shouldn't Text6 update after each new character is added to
Text0....?

Presumably it should. Post your code.

 

[Naeem Azizian]

Why you don't use inputmask?

and if you want to use key press, keep the value of the text box in a
variable and then if the lenght of text variable goes beyond 18 then
set the text box value to only 18 characters hold in your variable.
then send an error message.

this way you can even choose which part of the text shall apppear in
the text box, you can cut the string from left or right depending on
your own will.

 

[Marshall Barton]

I have an unbound field that I type in. When the number of chracters
reach 18 I want a message box to pop up that tells you to stop. I don't
want any input beyond 18 chracters, less is ok.

Heres what I have...
Text0 is where the typing takes place. I tried after update, on chage
before update of the textbox but it only works after you take the focus
off of the textbox. Any help appreciated. Thanks, DS.

Me.Text6 = Len(Me.Text0)
If Me.Text6 > 18 Then
MsgBox "stop"
Else:
End If

If you want Text6 to update after each keystroke, then you
need to use the Change event AND you need to get the Len of
the Text property.

Me.Text6 = Len(Me.Text0.Text)

 

[DS]

DS wrote:





If you want Text6 to update after each keystroke, then you
need to use the Change event AND you need to get the Len of
the Text property.

Me.Text6 = Len(Me.Text0.Text)

This worked most greatly!!!!! Funny how one word can change things!

Me.Text6 = Len(Me.Text0.Text)
If Me.Text6 > 18 Then
MsgBox "stop"
Else:
End If

Thank You,
DS

 

[DS]

Presumably it should. Post your code.

Marshall Barton suggested this and it worked great.
Thank you for your help Douglas!

Me.Text6 = Len(Me.Text0.Text)
If Me.Text6 > 18 Then
MsgBox "stop"
Else:
End If

 

[DS]

Why you don't use inputmask?

and if you want to use key press, keep the value of the text box in a
variable and then if the lenght of text variable goes beyond 18 then
set the text box value to only 18 characters hold in your variable.
then send an error message.

this way you can even choose which part of the text shall apppear in
the text box, you can cut the string from left or right depending on
your own will.

Presumably it should. Post your code.

This works, but out of couriosity, how would I set the Variable length
to 18?
Thanks
DS


Me.Text6 = Len(Me.Text0.Text)
If Me.Text6 > 18 Then
MsgBox "stop"
Else:
End If