Access: Sonderzeichen ersetzen

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

ich hoffe Ihr könnt mir helfen. In eine Tabelle „Kundenstammdaten“ sind leider einige Sonderzeichen eingeflossen, die jetzt umgewandelt werden sollen.

Beim googeln bin ich auf verschiedene Code-Schnipsel gestoßen, aber es funktioniert leider nicht:

Public Function Umlaut2(S)
Dim i As Integer, Ch As String * 1, Ch1 As String * 1, _
Res As String
If IsNull(S) Then Umlaut2 = Null: Exit Function
Res = „“

For i = 1 To Len(S)
Ch = Mid(S, i, 1)
Select Case Asc(Ch)
Case 142: Res = Res & „Ä“
Case 153: Res = Res & „Ö“
Case 154: Res = Res & „Ü“
Case 132: Res = Res & „ä“
Case 148: Res = Res & „ö“
Case 129: Res = Res & „ü“
Case 225: Res = Res & „ß“
Case Else: Res = Res & Ch
End Select
Next i
Umlaut2 = Res
End Function

Sub Update()

Dim SQL As String

SQL = „UPDATE Kundenstammdaten“ & _
„SET Name = Umlaut2(Name);“

CurrentDb().Execute SQL
End Sub

Könnt Ihr mir bitte helfen?

Vielen Dank!

Jessica

#2

Hallo Jessica,

versuchs mal mit dieser function:

Function clearSpecialSigns(source As String) As String

 source = Replace(source, Chr(142), "Ä")
 source = Replace(source, Chr(153), "Ö")
 source = Replace(source, Chr(154), "Ü")
 source = Replace(source, Chr(132), "ä")
 source = Replace(source, Chr(148), "ö")
 source = Replace(source, Chr(129), "ü")
 source = Replace(source, Chr(225), "ß")

 clearSpecialSigns = source

End Function

einfach mal in einer Abfrage als sep Feld einbauen:
select * from meinTabelle clearSpecialSigns([spaltenName])

mfg

Dirk.Pegasus