R1.9 Überflüssige Leerzeichen entfernen
Aufgabe
Sie suchen eine Funktion, welche aus einem übergebenen Text mehrfache Leerzeichen durch ein einziges ersetzt. Leerzeichen am Anfang und am Ende sollen ganz entfernt werden.
Lösung
Wir entwickeln eine VBA-Funktion, welche die Zeichenkettenfunktionen InStr und Replace benutzt, um doppelte Leerzeichen aufzuspüren und durch ein einzelnes Leerzeichen zu ersetzen. Eingebettet in eine While-Schleife wird das Ganze so lange wiederholt, bis keine doppelten Leerzeichen mehr gefunden werden.
Oberfläche
Im Detailbereich eines Formulars platzieren Sie zwei ungebundene Textfelder und eine Befehlsschaltfläche.
Quellcode
Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.