Hilfe bei replace

[Uwe_Noob]

Hallo,

ich bekomm es einfach nicht gebacken irgendwie dreh ich mich im Kreis.
Das Thema hatte ich im Tabelle/Abfrage schon einmal angesprochen.
https://www.access-o-mania.de/forum/index.php?topic=24764.0
Eventuell kann mir jemand einen möglichen Lösungsweg aufzeigen.
Super wäre es wenn es eine Ausbaustufe dieses Codes wäre.

Code (vb) [Auswählen] Erweitern


With vrsar
.Edit
    .Fields("YO") = Replace((Right(vrsar!yo, 2) = "ar"), "ar", "o")
...
        .Update
       ' Debug.Print vrsar!yo
        .Close
End With

Vielen Dank schon mal
Uwe

[markusxy]

Die Logik bleibt ja immer gleich. 

Code (vb) [Auswählen] Erweitern


  With vrsar
   If Right(!yo, 2) = "ar" Then
    .Edit
    !yo = Left(!yo, Len(!yo) - 2) & "o"
    .Update
   End If
  End With


Aber wie bereits erwähnt, gehört das wenn möglich in eine Aktualisierungsabfrage.
Da läuft das dann 100x schneller.

[Uwe_Noob]

Wie würde so eine Abfrage aussehen ?
Damit habe ich mich nie beschäftigt ^^

[markusxy]

Wie würde so eine Abfrage aussehen ?

Die If Bedingung im Recordset wird in der Abfrage zur Where Bedingung.
Das Konzept ändert sich nicht.

[Uwe_Noob]

Ich werde das heute abend noch testen und mich dann mal an einer Abfrage versuchen ;-)
Muss ich mich damit beschätigen denke ich.
Ich danke dir

PS. funktioniert nu guck ich mal ob ich das mit der Abfrage hinbekomme

[markusxy]

nu guck ich mal ob ich das mit der Abfrage hinbekomme

Wenn du es nicht schaffst, dann poste deinen Versuch.
Das sollte kein Problem sein - ist doch ein einfaches Thema.