in de gebeurtenis van de textboxesVerandering, controleer om de lengte van de tekst te zien. Wanneer ik dit wil doen, wijs ik over het algemeen een etiket (het lbl_CharRemaining) aan de textbox en gebruikscode toe die iets als kijkt:
Privé Subtxt_TextBoxName_Change
Statische strPrevious als Koord
als Len (me.txt_TextBoxName.text & "") > 50000 toen
me.txt _TextBoxName.text = strPrevious
Anders
strPrevious = me.txt _TextboxName.text
Eind als
me.lblCharRemaining = 50000 - Len (me.txt_TextBoxName.text & "")
Sub van het eind