title image


Smiley OEM nach ANSI handgestrickt...
Dann mach es so:



Public Function Convert(Byval S as String) as String

Dim Ch as string, I as long, Res as string

For I = 1 to Len(S)

Ch = Mid(S,I,1)

Select case Asc(Ch)

Case 132: Res = Res & "ä"

Case 148: Res = Res & "ö"

Case 129: Res = Res & "ü"

Case 142: Res = Res & "Ä"

Case 153: Res = Res & "Ö"

Case 154: Res = Res & "Ü"

Case 225: Res = Res & "ß"

Case Else: Res = Res & Ch

End Select

Next I

Convert = Res



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: