title image


Smiley Du musst halt den Feldnamen als Argument der Funktion übergeben...
wie da ja auch steht.



Ich würde die Funktion allerdings fehlertoleranter schreiben:



Public Function Aufsplitten(S As Variant, Trennzeichen As String, Stelle As Long)

If Isnull(S) then

Aufsplitten = Null

else

Dim SplitArray

SplitArray = Split(S, Trennzeichen)

If Stelle >= LBound(SplitArray) and Stelle <= UBound(SplitArray) then

Aufsplitten = SplitArray(Stelle)

else

Aufsplitten = ""

end if

end if

End Function



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: