Label showing number of chars left in a text box

[Guest]

I want to make a label next to a text box count down the number of character
space left in the text box that updates real time. I'v made the code below
but I can't find a correct event to make it refresh with every keypress

Private Sub txtNotes_KeyUp(KeyCode As Integer, Shift As Integer)
Dim Length As String
Length = 255 - Len(txtNotes.Value)
lblLeftNotes.Caption = "(" & Length & ")"
End Sub

 

[Rick Brandt]

I want to make a label next to a text box count down the number of
character space left in the text box that updates real time. I'v made
the code below but I can't find a correct event to make it refresh
with every keypress

Private Sub txtNotes_KeyUp(KeyCode As Integer, Shift As Integer)
Dim Length As String
Length = 255 - Len(txtNotes.Value)
lblLeftNotes.Caption = "(" & Length & ")"
End Sub

txtNotes.Value is not updated until the control is actually updated. To see
changes while you are typing use txtNotes.Text.

 

[Guest]

Put it in the On Change event instead and change the code to this

Dim Length As Integer
Length = 255 - Len(txtNotes.Text)
lblLeftNotes.Caption = "(" & Length & ")"