title image


Smiley Immer nett zu wissen...
... um welche Access-Version es sich handelt ;=)In A2000 gibt es eine Funktion Split (siehe Hilfe), ansonsten kannst du diese Funktion verwenden:Function StrPart(S, Optional Cnt = 1, Optional Sep = ";")'' Rückgabewert: Der <Cnt>-te durch <Sep> getrennte Teilstring'Dim I As Long, j As Long, K As Long, Res As StringOn Error GoTo Er If IsNull(S) Then StrPart = Null: Exit Function StrPart = "" If Not IsNumeric(Cnt) Then Exit Function Res = "" j = 1 For I = 1 To Cnt K = InStr(j, S, Sep) If K = 0 Then K = 32000 If I = Cnt Then Res = Mid(S, j, K - j) j = K + Len(Sep) If j > 30000 Then Exit For Next I StrPart = 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: