Manchmal kann man sich mit kleinen Tools das Leben erheblich erleichtern. In diesem Beispiel geht es um die Vereinfachung der Bearbeitung importierter Daten. Dabei liefert die Quelle eine Zeichenkette in einem Feld, die eigentlich auf zwei Felder aufgeteilt sein sollte – allerdings ohne die Möglichkeit, dies komplett zu automatisieren. Sei es drum: Eine kleine Arbeitserleichterung ist besser als keine.
Beispiel
Als Anregung für den Bau der hier beschriebenen Hilfe dient die Bücherverwaltung aus dem gleichnamigen Beitrag (Shortlink 633). Die dort beschriebene Anwendung liest unter anderem Buchdaten vom Webservice von Amazon ein. Dieser hat die unangenehme Eigenart, Buchtitel und Untertitel in einem zu liefern. Die beiden Eigenschaften liefert Amazon zwar durch einen Doppelpunkt getrennt, da viele Bücher aber bereits einen Doppelpunkt im Titel und/oder Untertitel tragen, wäre eine automatische Aufteilung von Titel und Untertitel nicht besonders zuverlässig.
Lösung
Wie also kann man dies vereinfachen Normalerweise würde man wohl die komplette Zeichenkette, also Titel und Untertitel, in eines der Zieltextfelder, vorzugsweise in den Titel kopieren und die Zeichenkette dann manuell auf Titel und Untertitel aufteilen. Dazu markiert man dann den Untertitel innerhalb der Zeichenkette, schneidet diesen entweder per Tastenkombination Strg + X oder über den entsprechenden Kontextmenüeintrag aus und fügt ihn mit Strg + V in das Untertitel-Feld ein.
Im Beispiel sieht das wie in Bild 1 aus. Der Text im Feld Titel enthält nicht nur den Titel, sondern auch noch den Untertitel. Das Formular enthält direkt eine Schaltfläche, die das Formular zum Aufteilen des Titels auf Titel und Untertitel öffnet. Dieses sieht wie in Bild 2 aus.
Bild 1: Buchdetails mit einem Titeltext, der noch auf Titel und Untertitel aufgeteilt werden muss
Bild 2: Dieses Formular teilt Texte einfach auf.
Das Formular zeigt direkt den kompletten im Feld Titel enthaltenen Text an. Platziert der Benutzer die Einfügemarke irgendwo im Text, erscheint der Teil vor der Einfügemarke im ersten, der Teil hinter der Einfügemarke im zweiten Ergebnisfeld.
Falls sich zwischen den beiden Teilen Zeichen befinden, die weder dem ersten noch dem zweiten Teiltext zugeordnet werden sollen, markiert man diesen Teil einfach. Dann zeigt das erste Ergebnisfeld den Teil vor Beginn der Markierung an und das zweite den Teil hinter der Markierung. Ein Klick auf OK genügt, um das Formular zu schließen und den aufgeteilten Text zurückzuschicken.
Lösung verwenden
Der Einsatz der Lösung erfordert nur ein paar Zeilen Code, die einen Funktionsaufruf beinhalten und diesem den Originaltext übergeben sowie zwei leere Variablen, die mit den beiden Textfragmenten gefüllt werden sollen (s. Listing 1).
Außerdem müssen Sie der Zieldatenbank das Modul mdlTextAufteilen und das Formular frmTextAufteilen hinzufügen.
Nur für Abonnenten
Ab hier wird’s wirklich spannend – der Rest ist exklusiv für Abonnenten.
Mit dem Abo von Access im Unternehmen bekommst du den kompletten Artikel – inklusive vollständigem Code, Beispieldatenbank und Schritt-für-Schritt-Erklärung.
So sparst du dir stundenlanges Herumprobieren, vermeidest teure Fehler in deiner Access-Anwendung und kannst Lösungen direkt in deinem Unternehmen einsetzen, statt nur darüber zu lesen.
Teste Access im Unternehmen jetzt 4 Wochen lang kostenlos: Voller Zugriff auf alle Artikel, Downloads und Beispieldatenbanken. Kein Risiko – wenn es für dich nicht passt, kündigst du einfach innerhalb der ersten vier Wochen.
Bereits Abonnent? Hier einloggen
Kostenlos & unverbindlich
Oder hast Du eine konkrete Frage zu Deiner eigenen Access-Anwendung?
Vielleicht stellt Deine Anwendung Dich vor eine Herausforderung, zu der Du bisher keine Lösung findest. Schlechte Performance, kein ausreichender Zugriffsschutz, Du bist unsicher über Dein Datenmodell oder Dein Code liefert unerklärliche Fehler?
In unserem kostenlosen Access-Audit schaut sich André Minhorst persönlich gemeinsam mit Dir Deine Lösung per Zoom an – und zeigt Dir, wo Datenmodell, VBA-Code, Ergonomie und Sicherheit Optimierungspotenzial bieten.
Jetzt kostenloses Access-Audit anfordern →