Microsoft Access Programmierrezepte

R1.10 Einen Text mit Zeichen auffüllen

Aufgabe

Gesucht wird eine Funktion, mit welcher man einen vorgegebenen Text auf eine gewünschte Länge auffüllen kann. Füllzeichen und Füllrichtung sollen ebenfalls frei wählbar sein.

Lösung

Eine Lösung bietet sich mit Hilfe der VBA-Zeichenkettenfunktionen Trim$, Left$ und String$ an. Da wir annehmen wollen, dass meistens nach rechts aufgefüllt werden soll, werden wir die Füllrichtung als optionalen Parameter übergeben.

Oberfläche

Neben vier ungebundenen Textfeldern und einer Befehlsschaltfläche verdienen besonders die zwei Optionsfelder Beachtung, mit welchen man die gewünschte Füllrichtung (Links, Rechts) einstellen kann (siehe Laufzeitabbildung).

Quellcode

Option Explicit

Zu Beginn werden die drei ersten Textfeld ...