Acc2016 - String mit umlauten umwandeln

[chiefhenk]

hallo Leute

wieder einmal raucht mein Kopf, weil ich nicht weis wie ich in meinem String die umlaute umwandeln kann bevor der String abgeschickt wird.

Code:

FollowHyperlink "https://tel.local.ch/de/q?what=" & Me.ADNachname & " &where=" & Me.ADAdresse & " " & Me.ADOrt

adnachname / adadresse / adort können umlaute enthalten.
damit weigert sich vba dies auszuführen. Ändere ich im Datenbankfeld ein ü zu einem ue läuft der Code. BSP ort Lützelflüh müsste als Luetzelflueh erfasst werden. dies ist aber ein Unding.

was kann ich machen

Bin euch sehr verbunden für ein Code Schnitzel.

[maikek]

Moin,
vba hat an und für sich keine Probleme mit Umlauten ...
Für's Ersetzen gibt es die Funktion Replace, die müsstest du aber für jeden Umlaut einzeln ausführen:

Code:

Dim strNachname as string
strNachname = Replace(Replace(Replace(Replace(Me.ADNachname, "ä", "ae"),"ö", "oe"),"ü", "ue"), "ß", "ss")

Bin mir nicht sicher, ob das Case-sensitiv ist und die du ganze Nummer auch noch mal für Großbuchstaben machen musst.
maike

[sonic8]

Zitat: von maikek

Bin mir nicht sicher, ob das Case-sensitiv ist und die du ganze Nummer auch noch mal für Großbuchstaben machen musst.

Die Replace-Funktion hat ein Argument für den CompareMode. Wenn man eine case-sensitve Verarbeitung möchte, muss man dort vbBinaryCompare angeben.

[TommyK]

oder per Function:
Umlaute konvertieren

[daolix]

ggf könntest/müsstest du die addressdaten auch url encodieren.

[chiefhenk]

hallo maikek

das funktioniert so.. danke... das mit dem case sensitiv ist mir noch unklar und nicht ausgetestet. Die Antwort mit dem vbBinaryCompare von sonic habe ich nicht begriffen.

Meine ursprüngliche Frage war auch noch warum VBA überhaupt in den Debugger Modus wechselt, wenn ein umlaut im Datenbankfeld ist. das ist mir eigentlich unklar... ob der URL link nach where= umlaute verarbeiten kann oder nicht ist ja un relevant. ab where hat der URL ja nichts mehr mit der Domain im eigentlichen sinne zu tun.

kannst du mich dazu noch aufklären?

[maikek]

Zitat:

Die Antwort mit dem vbBinaryCompare von sonic habe ich nicht begriffen.

Die Funktion Replace hat ein Argument für die Art des Vergleichs/Ersetzens, nach sonics Aussage wird mit vbBinaryCompare die Case-Sensitivität erzeugt, ohne sollte es dann generell ersetzen.

Zitat:

warum VBA überhaupt in den Debugger Modus wechselt, wenn ein umlaut im Datenbankfeld ist.

Ist mir auch unklar, imho hat das nix mit vba zu tun, wie ich bereits sagte.
Vermutlich liegt es an der Kodierung (siehe Hinweis von Daolix), so dass die Umlaute nicht korrekt übertragen werden.
maike

[Nouba]

Verwende ShellExecute (z.B. von hier) - damit gibt's dann auch keine Umlautprobleme.

[sonic8]

Zitat: von Nouba

Verwende ShellExecute (z.B. von hier) - damit gibt's dann auch keine Umlautprobleme.

...keine Umlautprobleme in Access/VBA!
Der Webserver/-service am anderen Ende könnte durchaus immer noch ein Problem damit haben. Umlaute und Sonderzeichen gemäß der technischen Spezifikation zu kodieren, ist sicherlich dennoch sinnvoll oder gar erforderlich.

[Nouba]

Ich hab's ja vorher mit dem URL getestet.

[chiefhenk]

Hey Leute
Vielen dank. ich schliesse nun ab.. wirklich gute Infos von euch.