Guten Morgen,
mach mal (nachdem Du die Datenbank kopiert hast) ein neues Modul im Acess.
da kopierst Du folgendes rein (schnell gebastelt, vielleicht nicht professionell, sollte aber gehen...):
Function Nummerieren(Text As String)
Dim rueck As String 'Der String, der gebastelt wird
Dim gefunden As Integer 'Zähler der %
If Text = Null Or Len(Text) = 0 Then 'Wenn leerer Text, dann
Nummerieren = "" 'dann leerer Text zurück
Exit Function 'und Verlassen
End If
gefunden = 0 'Zähler nullen
rueck = Left$(Text, 1) 'erstes Zeichen = erstes Zeichen, (weil max. %)
For X = 2 To Len(Text) 'durchlauf von zweitem bis letztem Zeichen
Teil1 = Mid$(Text, X - 1, 1) 'Teil1 = Zeichen vor dem wir sind
Teil2 = Mid$(Text, X, 1) 'Teil2 = Zeichen bei dem wir sind
If Teil1 = "%" And (Asc(Teil2) >= 48 And Asc(Teil2) < 57) Then
'Wenn das Zeichen vorher % ist und das akt. Zeichen eine Zahl, dann
rueck = rueck & gefunden 'wird der aktuelle Zählerstand angebastelt
gefunden = gefunden + 1 'und um 1 erhöht
Else 'ansonsten
rueck = rueck & Teil2 'wird das akt. Zeichen angefügt
End If
Next 'Nächstes Zeichen
Nummerieren = rueck 'und gebastelten Text zurückgeben
End Function
Anschließend machst Du in der Entwurfs-Ansicht eine neue Abfrage, wechselst in die SQL-Ansicht und überschreibst, was drin steht mit:
UPDATE Translations SET Translations.cs_CZ_Match = Nummerieren([cs_CZ_Match]), Translations.da_DK_Match = Nummerieren([cs_CZ_Match]), Translations.de_DE_Match = Nummerieren([de_DE_Match]), Translations.en_US_Match = Nummerieren([en_US_Match]), Translations.es_ES_Match = Nummerieren([es_ES_Match]), Translations.fr_FR_Match = Nummerieren([fr_FR_Match]), Translations.hu_HU_Match = Nummerieren([hu_HU_Match]), Translations.it_IT_Match = Nummerieren([it_IT_Match]), Translations.ko_KR_Match = Nummerieren([ko_KR_Match]), Translations.nl_NL_Match = Nummerieren([nl_NL_Match]), Translations.pl_PL_Match = Nummerieren([pl_PL_Match]), Translations.pt_BR_Match = Nummerieren([pt_BR_Match]), Translations.pt_PT_Match = Nummerieren([pt_PT_Match]), Translations.ru_RU_Match = Nummerieren([ru_RU_Match]), Translations.sv_SE_Match = Nummerieren([sv_SE_Match]), Translations.zh_CN_Match = Nummerieren([zh_CN_Match]);
Wenn Du die Abfrage ausführst, sollte das automatisch korrigiert werden. (Hab's grob getestet)
Gruß Markus
------------------
Die drei Hemmschuhe des Fortschritts:
Das haben wir schon immer so gemacht,
das haben wir noch nie so gemacht,
da könnte ja jeder kommen...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP