Tag auch, ich komme einfach nicht mehr weiter.
Ich habe eine Tabelle:
Feld1 Feld2
01 soig[B]obv[/B]nrobv
02 aspfj[B]pov[/B]uwpogk
03 üpsdv[B]ksß[/B]pvi
04 psioj[B]gpi[/B]j
06 pcowl[B]föi[/B]vwelrhj
Jetzt soll immer nach dem 5 Zeichen die drei folgenden Zeichen ersetzt werden.
Ich hatte mir das so mit eine Abfrage gedacht:
Feld1 Feld2:Mid_funktion(Feld2)
tabelle
Code zu Mid_funktion
Function Mid_funktion(Feld2 As String) As String
If Mid(Feld2, 6, 3) = "obv" _
Then Mid(Feld2, 6, 3) = "Mar"
If Mid(Feld2, 6, 3) = "pov" _
Then Mid(Feld2, 6, 3) = "Oct"
If Mid(Feld2, 6, 3) = "ksß" _
Then Mid(Feld2, 6, 3) = "May"
If Mid(Feld2, 6, 3) = "gpi" _
Then Mid(Feld2, 6, 3) = "Dec"
End Function
Das klappt so nicht, wo ist der Fehler?
LG Im Vorraus
RWErene |