Self updating character counter?

[Widge]

Yet another question I'm afraid!

I have subform which contains a textbox. On the main form, I have a textbox which is counting the amount of characters left the user has left to create a comment with by using:

=255-Len([AccountCardComments])

the only thing is, it doesn't update after typing, only after refocussing somewhere else, and it only seems to provide the length for the first comment. If I start to move between records, or even comment number on the subform, the length stays fixed on the first entry of the AccountCardComments table.

Tried using requery but that causes my form to go blank. So open to any suggestions. Its more of a 'nice to have' feature so don't worry if you can't help. I can always replace it with a piece of validation when the record tries to update instead, but I thought this would be a nice visual feature.

Thanks once again,

Si (the person who is learning on the fly!)

[ADezii]

Yet another question I'm afraid!

I have subform which contains a textbox. On the main form, I have a textbox which is counting the amount of characters left the user has left to create a comment with by using:

=255-Len([AccountCardComments])

the only thing is, it doesn't update after typing, only after refocussing somewhere else, and it only seems to provide the length for the first comment. If I start to move between records, or even comment number on the subform, the length stays fixed on the first entry of the AccountCardComments table.

Tried using requery but that causes my form to go blank. So open to any suggestions. Its more of a 'nice to have' feature so don't worry if you can't help. I can always replace it with a piece of validation when the record tries to update instead, but I thought this would be a nice visual feature.

Thanks once again,

Si (the person who is learning on the fly!)

You need to 'Hook' the code in the KeyPress() Event of your Field on the Sub-Form. Assuming the Field on the Main Form to keep the runnig count is called txtCounter:
Private Sub AccountCardComments_KeyPress(KeyAscii As Integer)
Static intCharCounter As Integer
intCharCounter = (intCharCounter + 1)

Me.Parent![txtCounter] = (255 - intCharCounter)
End Sub

[Widge]

Wonderful, Parent is what I was missing!

[ADezii]

Wonderful, Parent is what I was missing!

Glad it worked.