Hi Gunter,
Try this. I placed this on the AfterUpdate event of a field on the form. [fieldname] would be = to Forms!frmFormName!fieldname.
Function MyNewDate()
Dim MyDay as string
Dim MyMonth as string
Dim MyYear as string
Dim NewDate as string
MyDay = Left([fieldname],3)
MyMonth = Mid([fieldname],4,3)
MyYear = Right([fieldname],3)
Select case MyMonth
Case "mrt"
NewDate = MyDay & "Mar" & MyYear
Case "mei"
NewDate = MyDay & "May" & MyYear
End Select
[fieldname] = NewDate
End Function
This would work as long as you always used 2 characters for the day of the month (01, 02, 03, etc) and as long as you always used 3 characters for the month (mrt, mei, etc - I don't know the rest sorry). You would have a "Case" for all 12 months.
This function should parse out the month value and replace it with the value in quotes in each case. At the end, [fieldname] = NewDate, this is where you are replacing the value in the fieldname.
Hope this gives you some ideas!! I am sure that there is probably a way to do it easier, but I do not know how.
Good Luck!
Lee