Aantal karakters tellen

[gangstalaz]

Hallo,

Ik werk met Access 2003 en heb het volgende probleem.
Zelf heb ik eerst op internet naar een oplossing gezocht maar ik krijg telkens een foutmelding die ik niet begrijp.

Ik heb een tekstvak (Tekst121) waar ik max 160 tekens in wil hebben en een tekstvak (LblCharsLeft) voor de "aantal karakters".

Ik heb bij de Key up van Tekst121 de volgende staan:

Private Sub Tekst121_KeyUp(KeyCode As Integer, Shift As Integer)
Me.LblCharsLeft.Caption = 160 - Len(Trim(Me.Tekst121)) & " characters left"
End Sub

En bij de Keydown de volgende:
Private Sub Tekst121_KeyDown(KeyCode As Integer, Shift As Integer)
If 160 - Len(Trim(Me.Tekst121)) < 1 Then
KeyCode = 8
End If
End Sub

Ik krijg elke keer een foutmelding over het woord CAPTION.

Wat kan ik hiervan maken of wie kan me helpen voor een andere code.

Alvast bedankt!

 

[OctaFish]

Ik heb 'm nagespeeld, en hij werkt bij mij prima. Ik kan mij overigens voorstellen dat hij het bij jou niet doet, want ik vermoed dat je een aantal zaken door elkaar haalt, gezien deze tekst:

tekstvak (LblCharsLeft)

Een tekstvak krijgt meestal een naam als txtAchternaam; het bijbehorende label noem je dan lblAchternaam. Jij noemt vermoed ik een Tekstvak LblCharsLeft, en probeert vervolgens daarvan een niet-bestaande eigenschap te veranderen. Alleen Labels hebben namelijk een Caption (voordat er iemand op de bok springt: ik chargeer een beetje omdat we het hebben over tekstvakken).
Gebruik dus een label i.p.v. een tekstvak.

Overigens kun je de code nog een stukje verbeteren:

Private Sub Tekst11_KeyUp(KeyCode As Integer, Shift As Integer)
    Me.LblCharsLeft.Caption = 160 - Len(Trim(Me.Tekst11.Text)) & " tekens over."
End Sub

En als laatste: maak de volgende keer je code op met de knop Code (#), dan ziet-ie er wat netter uit

 

[gangstalaz]

Kan je misschien een klein voorbeeldje op de site gooien?

Ik snap nu dat lbl..... voor een label bedoelt is, maar ik krijg het maar niet goed. Ik haal denk sommige dingen door elkaar.

 

[gangstalaz]

Ik weet al hoe het moet. De tekst komt al in de label te staan.
Ik probeerde het namelijk de hele tijd in het tekstvak te krijgen.

Bedankt!