Benutzung auf eigene Gefahr ! |
Beschreibung |
Textfelder (TextBox-Objekt) in gebundenen Formularen können u.a. an ein Feld vom Typ Text oder Memo gebunden sein. Während man bei Textfeldern über die Feldlänge noch die Anzahl der zulässigen Zeichen begrenzen kann, ist dies bei Memofeldern nicht über die Einstellungen im Tabellenentwurf möglich. Die hier vorgesetllte Funktion kontrolliert die Eingabe und warnt bei Überschreitung einer vorgegebenen Feldlänge. |
VBA-Quelltext |
Public Function TextLänge(SteuerElement As TextBox, MaxLänge As Integer) Dim IstLänge As Integer IstLänge = Len(Nz(SteuerElement.Text, 0)) If IstLänge >= MaxLänge Then MsgBox "Sie haben bereits " & IstLänge & " Zeichen eingeben." _ & vbNewLine & "Leider können nur die ersten " & MaxLänge & _ " Zeichen verwendet werden", , Fehler End If End Function |
Argumente der Funktion/Prozedur |
|
Anwendungsbeispiel(e)... |
In die Ereigniseigenschaft 'Bei Änderung' des Textfeldes mit dem Namen 'Referenten' wird die Funktion <CODE>=TextLänge([Referenten];150)<CODE> eingetragen. Dadurch wird gewarnt, falls eine Eingabe mehr als 150 Zeichen hat. |
Hinweis |
Der hier gezeigte Code wird als Funktion programmiert obwohl es keinen Rückgabewert gibt, damit Access diese Funktion aus einem Standardmodul heraus aufrufen kann. Dadurch wiederum können verschiedene Textfelder in verschiedenen Formularen auf den gleichen Code zugreifen. Wenn der Code in ein Formular integriert wird, reicht eine Prozedur (Sub) aus. |
Anwendungsgebiete, Fehler und Warnungen |
Die Funktion warnt beim Überschreiten der Textlänge, verhindert die Eingabe aber nicht. Die Funktion überwacht keine Texte, die aus der Zwischenablage kopiert werden. |