title image


Smiley Re: An Reinhard: Vielen Dank, aber noch ein paar Fragen
Wenn du nur in einem Feld ersetzen willst, muss es heissen:' Ersetzen in einem Feld des RecordsetsDim RS as RecordsetSet RS = Me.RecordsetcloneRS.MovefirstDo While not RS.EOF RS.Edit RS!MeinFeld = StrSubs(RS!MeinFeld,"i","I") RS.Update RS.MoveNextLoopRS.CloseDas .Edit und .Update fehlte auch in meinem Beispiel, das muss richtig heissen:' Ersetzen in allen Feldern des RecordsetsDim RS as Recordset, Fld As FieldSet RS = Me.RecordsetcloneRS.MovefirstDo While not RS.EOF RS.Edit For Each Fld in RS.Fields Fld.Value = StrSubs(Fld.Value,"i","I") Next Fld RS.Update RS.MoveNextLoopRS.CloseAsche auf mein Haupt..."Option Compare Explicit" muss ganz oben im Deklarationsteil des Moduls stehen (Normalerweise steht dort "Option Compare Database")Reinhard


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: