[gelöst] Meldung bei Erreichen der maximal erlaubten Zeichen

[Maikäfer]

Hallo liebe Base-Tüftler,
gibt es die Möglichkeit, eine Meldung anzeigen zu lassen, wenn bei der Eingabe die Anzahl der maximal erlaubten Zeichen erreicht wurde?
Die Eingabe erfolgt über ein Tabellensteuerelement in einem Formular, und ich will nicht immer alle Spalten mit Leben füllen, um dann hinterher festzustellen, dass der Datensatz nicht gespeichert werden kann, weil die maximale Anzahl an Zeichen, die in der Tabelle festgelegt wurde, erreicht ist.
Die Meldung dürfte meinetwegen über eine msgbox - wenn es hier sowas gibt, oder über ein Textfeld angezeigt werden.
Hat jemand eine Idee?

[F3K Total]

Hi,
wenn Du dieses Makro an jede Spalte Deiner Tabelle ans Ereignis "bei Fokusverlust" hängst, bekommst Du beim Verlassen der Spalte die Meldung "Achtung, maximale Eingabelänge erreicht!"

Code: Alles auswählen

Sub zulang (event)
oboundfield=event.source.model.boundfield
if len(oboundfield.Value)>=oboundfield.DisplaySize then msgbox "Achtung, maximale Eingabelänge erreicht!"
end sub

Gruß R

[turtle47]

Hallo Maikäfer,

na, hast Du wieder neue Flugversuche gestartet?

Die maximale Textlänge für das Kontrollelement kannst Du auch in den Eigenschaften festlegen.

Restzeichen.jpg (22.76 KiB) 1247 mal betrachtet

Beigefügt eine Datei, wo Dir die verbleibenden Restzeichen des Rezept-Textfeldes angezeigt werden.

Rezepte_DB_0_11.odb

(55.45 KiB) 132-mal heruntergeladen

[Maikäfer]

Hallo turtle47,
ja, ich fliege so lange hier mindestens so lange rum, bis das Projekt fertig ist - und vielleicht habe ich bis dahin wieder ein Neues, das ich ohne viel Nachfragen erstellen kann.
Ich habe jetzt erstmal die Eingabe über die Eigenschafte "maximale Textlänge" beschränkt. Erstmal sehen, wie ich damit klarkomme.

Hallo F3K Total,
deine Version hatte ich zuerst versucht. Sie war eigentlich so, wie gewünscht, aber ich habe im Nachhinein festgestellt, dass es doch nervig ist mit der msgbox.
Trotzdem hat mir deine Beschreibung sehr gut weitergeholfen, da ich jetzt weiß, wie ich in der Tabelle die einzelnen Spalten einstellen kann und vielleicht kann ich den Code noch an anderer Stelle einbauen.

Vielen lieben Dank euch beiden