Office: (Office 2016) Clean- und Left-Funktion auf Textboxwerte anwenden

Hallo Leute,

Ein Online Tool generiert 13-stellige Seriennummern für meine Access Datenbank. Wenn ich diese nun per copy/paste in die Textbox meiner vorgefertigten Eingabemaske einfüge, werden manchmal auch "unsichtbare" Zeilenumschläge und andere Ziffern vor und nach der Seriennummer mitkopiert.

Ich weiss, dass sich dies in Excel mit der Clean- und Left-Funktion beheben lässt, aber wie kann ich in Access sicherstellen, dass nur der korrekte Textboxwert in die Datenbank übernommen wird?

Freue mich über Eure Antworten

Gruss,
TK

:)

 

Servus tk:,
Versuch es mal mit der TRIM-Funktion.
Ansonsten wären mal Beispiele solcher Vor- oder Anhängsel nützlich.
https://support.office.com/de-de/art...8-1527a4eddea2

 

Hallo Evar46,

Danke für deine Antwort.
Angehängt findest du einige Beispiele dieser Anhängsel.
Konkret sind es Leerschläge vor und nach der Seriennummer, sowie Duplikate zwischen Zeilenumbrüchen.

Trim bereinigt mir also die Leerschläge und mit Left kann ich alles nach der Seriennummer entfernen lassen.
Gibt es auch ein Access Äquivalent zu clean, um mich von den Zeilenumbrüchen zu befreien?

Und bezüglich des weiteren Vorgehens:
Kann ich die daraus resultierenden Strings danach einfach mit der Textbox.value gleichsetzen, um die Werte in die Datenbank zu übertragen?

Danke und Gruss
TK

 

Hallo TK,

wenn die Seriennummern alle im Format @@@@@-@@@@@@@ sind,
wäre es relativ einfach, die Position des "-" Zeichens mit instr() zu bestimmen und von dort ausgehend die Seriennummer mit mid() zu extrahieren, ohne auf führende Leerzeichen bzw. folgende Zeichen achten zu müssen. Das Ergebnis kann natürlich anschließend auch zugewiesen werden.

Gruß Ulrich

 

Mit Replace kann man Ungewünschtes (Zeichen, Steuerzeichen) durch einen Leerstring ersetzen und somit entfernen. Man muss natürlich dieses Ungewünschte kennen und in der Anweisung definieren. Und selbstredend braucht man pro Einzelfall eine eigene Ersetzung.

Schlagkräftiger, variabler und am Ende übersichtlicher ist der Einsatz von regulären Ausdrücken.
Hier wird eine Mustersuche verwendet, wie man sie aus der Verwendung von LIKE kennt, dort aber mit allersparsamsten Möglichkeiten.

Um damit anzufangen gibt es zwei Wege:

1) Man definiert präzise, was man weghaben will. Das dazu verwendete Suchmuster muss natürlich so formuliert werden, dass es über alle auftretenden Möglichkeiten wirken wird.

2) Man definiert präzise, was man aus dem vorhandenen Text isolieren will. Dreizehnstellig ist da nicht ausreichend, wenn Ziffern und Buchstaben möglich sind und man aber da ein paar zusätzliche störende Zeichen hat: Soll man vorne oder hinten Zeichen entfernen und nach welchen Regeln?

Code:

Die erste Seriennummer wird man wohl etwa so definieren können:
4 Ziffern, dann ein Buchstabe, dann ein Bindestrich, dann 7 Ziffern
Steuerzeichen wie Zeilenumbrüche und andere Zeichen (Leerzeichen) werden dann automatisch nicht mehr berücksichtigt.

Damit trifft man aber nicht die beiden anderen Werte. Also müsste man das Suchmuster erweitern, und zwar (ich wiederhole) präzise abgestimmt auf die zu erwartenden Werte. Ist das Suchmuster zu sehr erweitert und zu unscharf, ist dann die Bereinigung ungenügend.

Der dritte Wert zeigt nun 14 Zeichen (> 13). Was nun?

 

Hallo TK,

vielleicht hilft dir diese Funktion aus dem DBWiki weiter?
VBA Tipp: Spezial TRIM/LTRIM/RTIM mit ASCII-Abgrenzung

Gruß
Josef

 

Ein Lösung mit RegExp (VBA-Code in einem Public Modul):
Code: