Replace(right warum funktioniert es nicht ?

[Uwe_Noob]

Hallo,
wenn ich dieses Recodset aufrufen

Code (vb) [Auswählen] Erweitern

Set vrsar = CurrentDb.OpenRecordset("Select * from tabverben where right((tabverben.verb),2)='ar')")
Bekomme ich vom debuger den Hinweis
Überzählig: ) in Abfrageausdruck
Was bedeutet das ??
und wo ist der Fehler ?^^
Gruß
Uwe

[Uwe_Noob]

Den ersten Fehler habe ich gefunden

Code (vb) [Auswählen] Erweitern

Set vrsar = CurrentDb.OpenRecordset("Select * from tabverben where right(tabverben.verb,2)='ar'")
Aber warum schmeißt VBA bei diesem Code das ganze Wort weg und setzt nur noch ein ein "o" ein ?

Code (vb) [Auswählen] Erweitern

.Fields("YO") = Replace((Right(vrsar!yo, 2)), "ar", "o")

[markusxy]

Aber warum schmeißt VBA bei diesem Code das ganze Wort weg und setzt nur noch ein ein "o" ein ?

Code (vb) [Auswählen] Erweitern

.Fields("YO") = Replace((Right(vrsar!yo, 2)), "ar", "o")

Scheinbar verstehst du den Code nicht, sonst würdest du das ja erwarten. 
Du verwendest zwei Funktionen.
Right erzeugt erstmal einen String, mit der Länge von zwei Zeichen.
Replace Ersetzt entweder diese beiden Zeichen durch o, oder die beiden Zeichen werden zurückgeliefert.

In solchen Fällen einfach, den Code in Einzelschritte zerlegen und Schritt für Schritt debugen.
Das wäre die wichtigste Fähigkeit für jeden angehenden Programmierer.

OT: Grundsätzlich macht man solche Änderungen wenn es möglich ist direkt per Abfrage.

[Uwe_Noob]

Moin Markus,

nachdem ich selber noch mal geguckt habe viel es mir wie schuppen von den Augen.
Der Code macht genau das was ich ihm sage aber nicht das was ich gern hätte ^^
Habe ich vergessen zu schließen.

Gruß
Uwe