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

---

 

geschrieben von Reinhard Kraasch , 07.05.2006, 23:24 Uhr , 21 mal gelesen