Office: (Office 2003) Access Suchen und Ersetzen Datenbank tabellengestützt!

Ich bin auf der Suche nach einer Access Datenbank, die folgende Funktionen hat:

In einer MDB Datei soll eine Tabelle mit Namen „Suchen-Ersetzen-Daten“ sein in dieser Tabelle gibt es 2 Felder („Suchen nach“ und „Ersetzen“) dann gibt es noch ein Formular in dem kann ich mir dann eine andere Tabelle oder Abfrage laden und dann noch einen Button. Wenn ich auf den drücke werden alle Felder der Tabelle bzw. Abfrage durchsucht und mit den zu ersetzenden Daten aus der Tabelle „Suchen-Ersetzen-Daten“ ersetzt.

Beispieltabelle „Suchen-Ersetzen-Daten“
Suchen nach "& A u m l ;" - - > Ersetzen durch: Ä
Suchen nach "& O u m l ;" - - > Ersetzen durch: Ö
Suchen nach "& o u m l ;" - - > Ersetzen durch: ö
Suchen nach "& U u m l ;" - - > Ersetzen durch: Ü
Suchen nach "& u u m l ;" - - > Ersetzen durch: ü

Der Sinn des ganzen soll sein, die Sonderzeichen in machen Datenbanken wieder zu bereinigen.

Kann man so etwas mit Access realisieren bzw. gibt es schon so eine oder so eine ähnlich Access-Lösung?

Viele Grüße webhugo

:)

 

Mit einer Abfrage in der mit Replace ersetzt wird, sollte das gehen.Mike

 

Danke probiere ich gleich mal aus!
webhugo

 

Mit Replace komme ich irgendwie nicht weiter!

Habe mir aber mal eine andere Lösungsmöglichkeit überlegt und ein Beispiel erstellt:

Tabellennahme: Tabelle1
Feldnahme: Feld1
Die Tabelle hat einfachheisthalber nur ein Feld!

Mit einer Aktualiserungsabfrage auf Tabelle1 im Feld1 habe ich folgendes Eingegeben_

Aktualisieren: „ö“
Kriterien: Wie „*oe*“

Leider ersetzt er das ganze Feld durch das „ö“ und nicht nur die Worte die „oe“ enthalten!

Hat vielleicht jemand eine Idee wie der richtige Aktualisierungs Code aussehen muß?

Vielen dank und viele Grüße

webhugo

 

Da musst du halt die Replace-Funktion einsetzen, anders geht das nicht.

Beispiel: Code:

Aber Vorsicht, das ergibt nicht in allen Fällen ein richtiges Ergebnis.
Wörter wie "soeben", "Soest", etc. werden dadurch fälschlicherweise ebenfalls umgesetzt.

 

Ich würde dafür eine VBA-Prozedur schreiben und diese in eine SQL-Update-Anweisung einbauen.

Prinzip:
Code:

Code:

 

BTW: Gerade beim Ersetzen von HTML-Entities sollte man aufpassen und Replace() so starten, dass Groß- und Kleinschreibung unterschieden wird ([Edit] hat Josef gerade nachgereicht [/Edit]).

 

... ein wichtiges "BTW". *wink.gif* ... ich ergänzte das in #6

 

Aber Vorsicht, das ergibt nicht in allen Fällen ein richtiges Ergebnis.
Wörter wie "soeben", "Soest", etc. werden dadurch fälschlicherweise ebenfalls umgesetzt.

Vielen Dank aber anscheinen klappt bei mir irgendwas nicht wenn ich den Code wie oben ind die SQL_Maske der Aktualiserungsabfrage eingebe erhalte ich folgende Fehlermeldung: "undefinierte Funktion 'Replace' im Ausdruck"

Viele Grüße

webhugo

 

Code:

Vielen Dank für diese Lösung aber ich habe beide Vorschläge nun mal in einer gepackten Access Datenbank ausprobiert (siehe Anhang) aber irgenwie will es nicht klappen - bin halt ein Anfäger!

Vielen Dank und viele Grüße

webhugo

 

Josefs Code scheint mir an einigen Stellen noch unvollständig, bzw. verbesserungswürdig.

Als erstes habe ich eine Tabelle angelegt, die die zu ersetzenden Werte und die neuen Werte auflistet:
<table border="1" class="tabletext"><tr><td class="tablehead1" colspan="2">Daten der Tabelle <strong>tblSuchenErsetzen</strong></td></tr><tr><td class="tablehead1" align="center"><strong>SuchenNach</strong></td><td class="tablehead1" align="center"><strong>ErsetzenDurch</strong></td></tr><tr><td class="tabletext2">&Auml;</td><td class="tabletext2">Ä</td></tr><tr><td class="tabletext2">&auml;</td><td class="tabletext2">ä</td></tr><tr><td class="tabletext2">&Ouml;</td><td class="tabletext2">Ö</td></tr><tr><td class="tabletext2">&ouml;</td><td class="tabletext2">ö</td></tr><tr><td class="tabletext2">&Uuml;</td><td class="tabletext2">Ü</td></tr><tr><td class="tabletext2">&uuml;</td><td class="tabletext2">ü</td></tr><tr><td class="tabletext2">&szlig;</td><td class="tabletext2">ß</td></tr><tr><td class="tablehead1" colspan="2"><font size="-2">Tabelleninhalte mit <a *****"http:>TabToWeb 0.75</a> nach XHTML 1.0 transferiert.</font></td></tr></table>

Diese Tabelle wird dann im weiter unten folgenden Code (hoffentlich) nur einmal durchlaufen, um das Array zu füllen. Damit die Kontrolle mittels SafeArrayGetDim() funktioniert, braucht man im Modulkopf noch diesen Teil:
Code:

Hier nun die Funktion, die an einigen Stellen noch überarbeitet wurde (am besten kopieren, ich weiß nicht, ob ich alles markiert habe):
Code:

Anwendung findet die Funktion dann so:
Code:

 

[OT]

Josefs (Luft)Code sollte auch nur das Prinzip zeigen und kein 1:1 kopierbarer Code sein. *wink.gif*

 

\@Josef P.: Welchen Sinn macht die WHERE-Klausel datenfeld > ''? Oder ist das auch nur Luft-Code?

 

\@FW
Gegenfrage: Welchen Sinn macht ReplaceHtmlCodes(NULL) oder ReplaceHtmlCodes("")?

Ja, das ist auch nur Luftcode, war aber trotzdem Absicht. *wink.gif*

 

\@Josef P.: Aber in diesem Fall wird halt, wie auch z. B. Bei dem Wert "xxx", nichts ersetzt! Dann sollten doch konsequenter Weise alle Zeichenketten, die das Suchkriterium nicht erfüllen, gefiltert werden?