title image


Smiley Funktion 'Säubern'
In der VBA-Hilfe sind eine Reihe von eingebauten Funktionen aufgeführt, die zu Excel gehören und die Access nicht kennt. Man muss sie halt selber schreiben. Je nach Anwendungsfall wird es wohl eine der folgenden Funktionen tun:Function StrClean(St)'' Rückgabewert: Zeichenkette <St> ohne SonderzeichenDim I, Res, Ch As String * 1On Error GoTo Er Res = "" If Not IsNull(St) Then Ch = " " For I = 1 To Len(St) Ch = Mid$(St, I, 1) If Asc(Ch) >= 32 Then Res = Res & Ch Next I End If StrClean = ResEx: Exit FunctionEr: MsgBox Err.Description Resume ExEnd Function Function StrCompr(St)'' Rückgabewert: Liefert Zeichenkette <St> in komprimierter Form zurück' (mehrfache Leerzeichen und Sonderzeichen durch einzelne Leerzeichen ersetzt,' keine Leerzeichen oder Sonderzeichen am Anfang oder am Ende)Dim I, Res, Ch As String * 1, OldCh As String * 1On Error GoTo Er Res = "" If Not IsNull(St) Then Ch = " " For I = 1 To Len(St) OldCh = Ch Ch = Mid$(St, I, 1) If Asc(Ch) If OldCh " " Or Ch " " Then Res = Res & Ch Next I End If If Len(Res) > 1 Then If Mid(Res, Len(Res), 1) = " " Then Res = Mid(Res, 1, Len(Res) - 1) End If StrCompr = ResEx: Exit FunctionEr: MsgBox Err.Description Resume ExEnd FunctionReinhard


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: