Tag auch, ich komme einfach nicht mehr weiter.
Ich habe eine Tabelle:
Feld1 Feld2
01 soigobvnrobv
02 aspfjpovuwpogk
03 üpsdvksßpvi
04 psiojgpij
06 pcowlföivwelrhj
Jetzt soll immer nach dem 5 Zeichen die drei folgenden Zeichen ersetzt werden (hier in fett).
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
Ich habe eine Tabelle:
Feld1 Feld2
01 soigobvnrobv
02 aspfjpovuwpogk
03 üpsdvksßpvi
04 psiojgpij
06 pcowlföivwelrhj
Jetzt soll immer nach dem 5 Zeichen die drei folgenden Zeichen ersetzt werden (hier in fett).
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