title image


Smiley Re: Text in Daten umwandeln


Private Function Extrahiere(ByVal S as String, ByVal SuchString as String)As Long

Dim I as LOng, Tmp As string

I = Instr(S, Suchstring)

Extrahiere = 0

If I > 0 then

Tmp = Mid(S, I+1)

I = Instr(Tmp," ")

If I > 0 then Tmp = Left(Tmp,I-1)

Extrahiere = Val(Tmp)

end if

end function





Und dann:



Dim Metall as Long, Kristall as Long

Metall = Extrahiere(Cstr(Me!DeinMemo),"Metall: ")

Kristall = Extrahiere(Cstr(Me!DeinMemo),"Kristall: ")



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: