Løbende optælling af karakterer

Private Sub txtInput_KeyPress(KeyAscii As Integer)
Me.txtCount = Len(Me.txtInput.Text)


End Sub

You should out the code in one of the key evenets (down up or press)

seems to work in Keypress

Hi Terry.  You'r the man. I did try your succestion earlier, but without the .text \Me.txtCount = Len(Me.txtInput)\

Can you explain the function of .text

Amcon

This is taken from Help

While the control has the focus, the Text property contains the text data currently in the control; the Value property contains the last saved data for the control. When you move the focus to another control, the control's data is updated, and the Value property is set to this new value. The Text property setting is then unavailable until the control gets the focus again. If you use the Save Record command on the Records menu to save the data in the control without moving the focus, the Text property and Value property settings will be the same.

Hi Terry. Thanks for your explanation. The job is done and the points are yours.

Terry > skal det ikke være +1, for det tastetryk, der trikker koden, er ikke registreret i feltet endnu.

Private Sub txtInput_KeyPress(KeyAscii As Integer)
Me.txtCount = Len(Me.txtInput.Text)+1
End Sub

Jeg sad netop og testede og så at der var en enkelt karakter forkert. Der var du skarp, kabbak.

:o)

I havent checked if the number was correct, only how to show some number.
If the code was move to the Mouse UP event then maybe it would be correct.