Limit text entered length and warn when limit reached

[Bradon]

I have a memo field that I want to limit to 500 characters and show a warning to the user when the limit is reached.

I have applied a validation rule and this works, but the warning box only shows when the user moves to the next field.

How do I display a warning when the user is typing in the field and the limit is reached?

 

[Tazguy37]

If you're working with a textbox on a userform, you could use something like this:

Private Sub TextBox1_Change()
    If Len(TextBox1.Value) >= TextBox1.MaxLength - 5 Then MsgBox "Warning!  You are approaching the allowable limit for this field!", vbCritical
End Sub

Hope that helps!