title image


Smiley Re: Abschnitt in Memofeld löschen
Dafür brauchst du eine eigene Funktion, z.B. so etwas:



Public Function EntferneAllesZwischen(ByVal S, ByVal Anfang, Optional ByVal Ende, _

Optional MitBegrenzung As Boolean = False)



EntferneAllesZwischen = S

If Not IsNull(S) Then

Dim I As Long, J As Long

If IsMissing(Ende) Then Ende = Anfang

I = InStr(S, Anfang)

If I > 0 Then

J = InStrRev(S, Ende)

If J > 0 Then

If MitBegrenzung Then

I = I + Len(Anfang)

Else

J = J + Len(Ende)

End If

EntferneAllesZwischen = Left(S, I - 1) & Mid(S, J)

End If

End If

End If

End Function





Und dann z.B. per SQL:



UPDATE MeineTabelle SET MeinFeld = EntferneAllesZwischen(MeinFeld,'*****')



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: