Texteingabe begrenzen beim ungebundenen Textfeld A2003

[Optiplex]

Hallo zusammen,
kann man die Texteingabe bei einem ungebunden Textfeld irgendwie auf eine bestimmte Anzahl Zeichen begrenzen.

Ich hoffe das weis jemand.

Gruß Dieter

[MzKlMu]

Hallo,
mit ein paar Zeilen Code, kein Problem.

Code [Auswählen] Erweitern

Private Sub TextFeld_Change()
Dim SollLänge As Integer

SollLänge = 5 'anpassen
   If Len(TextFeld.Text) > SollLänge Then
       MsgBox "Zu lang"
       TextFeld.Text = Left(TextFeld.Text, SollLänge)
   End If
End Sub

Beachte das ".Text" bei den Feldnamen, das ist wichtig.

[Optiplex]

Dank  MzKlMu für die schnelle Antwort,

Muss ich das für jedes ungebundene Textfeld machen? Ich hatte die Hoffnung, dass es dafür vielleicht eine Eigenschaft gibt.

Gruß Dieter

[MzKlMu]

Hallo,
für ein ungebundenes Feld nicht, bzw. wüste ich keine.
Der Code hat auch den Vorteil, dass Du eine Meldung bekommst und der Text automatisch gekürzt wird.

[lumbumba]

evtl ginge das auch mit der Gültigkeitsregel

Code [Auswählen] Erweitern

Wie '??????' bei der jetzt zb 6 Zeichen angegeben werden müssen

[Optiplex]

Hallo zusammen,
die Lösung von MzKlMu ist ok, ich hab etliches mittlerweile ausprobiert ( Format, Eingabeformat usw.), aber die Lösung von MzKlMu ist die beste.

Code (vb) [Auswählen] Erweitern


Private Sub TextFeld_Change()
Dim maxChar As Integer
  maxChar = 15 'anpassen
  If Len(Me.TextFeld.Text) > maxChar Then
    Beep
    Me.TextFeld.Text = Left(Me.TextFeld.Text, maxChar)
    Me.TextFeld.SelStart = Len(Me.TextFeld.Text)
  End If
End Sub

Ich habe den code noch verfeinert in dem ich den Curser ans Ende der Eingabezeile setze. Vielleicht kann jemand den Code gebrauchen.
Danke an alle und besonderst an MzKlMu.
Gute Nacht und Gruß Dieter