Ajay!! it worked!!! thanks a lot!!!!
//
Private Sub TextBox2_Change ()
Me.Label1 = 250 - Len(Me.TextBox2 .Text) & " Characters Left"
End Sub
Private Sub Label1_Change()
End Sub
//
Dan.
Dan1974
Last Activity: Aug 13 '15, 09:20 PM
Joined: Nov 27 '14
Location:
-
This is what I copied from your advice:
//
Private Sub TextBox2_Change ()
Dim a As Object
a = Len(Me.TextBox2 .Text)
Label.Text = (250 - a) & "Characters Left"
End Sub
Private Sub Label_Click()
Label.Text = (250 - a) & "Characters Left"
End Sub
//
and it's not working.Leave a comment:
-
Correct.
Please give me the details on Label as well. Because I have added a Label1 and didn't work.
Thank you Ajay.Leave a comment:
-
Hi Ajay,
Thank you so much for your quick answer, but it didn't work.
I'm not very expertise with VBA and I don't understand what means all you put in the line #3 in brackets.
As I said, my text box where I have to write the text, it's called "textbox2".
If I can put the counter in the top right of the box, much nicer, otherwise let me know the best option.
When I ran your code this message...Leave a comment:
-
In other forum I've just read this but not sure if it will work:
//
Me.LblCharsLeft .Caption = 255 - Len(Trim(Me.Tex tBox)) & " characters left"
//
I need a counter on real time, so when I type in TextBox 2 need in someplace a counter that tells how many character left in TextBox2.
Thanks again.Leave a comment:
-
Count Characters on a Textbox (but while typing).
Please I would appreciate if you can help me with the correct code to countdown characters left in a TextBox.
Here is my code but doesn't work on real time, I mean, when I type in TxtBox2.
TextBox3 is where I put the counter.
TextBox2 is where it's the text.
//
Private Sub TextBox3_Change ()
Me.TextBox3 = 250 - Len(Me.TextBox2 .Text) & " Characters Left"
If Len(Me.TextBox2 .Text)...
No activity results to display
Leave a comment: