Ændring af format i Access 2000

make a module and place the folloowing code in it.
Function cNavn(sin As String) As String
Dim sWork As String
Dim i As Integer

    sWork = sin
   
    i = InStr(1, sin, "/")
       
    sWork = Mid(sin, i + 1, Len(sin) - i) & " "
    sWork = sWork & Left(sin, i - 1)

    Debug.Print sWork
   
    cNavn = sWork

End Function

Then you make an update query setting the update To field to

CNavn([navn])

Hows it going?

you can delete the line
Debug.print sWork

Hi Terry,

Thank you for your help ! :-) - it works !

But there is an error runtime error '5' - when I debug this statement is outlined:
sWork = sWork & Left(sin, i - 1)

I have about 14.000 names but only the first 1.400 names are changed. - I have tried to deled name 1.401 an activate the query again with no change.

Hope this makes sense

add this to the start of the function after the
Dim i As Integer line

If isNull(sin) then exit function

and see if that helps

It?s the  same ? is it possible to skip the names that causes the error ?

I am trying to skip those which cause the error, but it isnt always easy to know what the field contains. Try this:

Function cNavn(sin As String) As String
Dim sWork As String
Dim i As Integer

    sWork = sin
   
    i = InStr(1, sin, "/")

    if i = = Then
      Cnavn = ""
      Exit Function
    end if

    sWork = Mid(sin, i + 1, Len(sin) - i) & " "
    sWork = sWork & Left(sin, i - 1)
   
    cNavn = sWork

End Function

It cant compile this statement: if i = = Then

Again thank you for your effort ! :-)

if I = 0 Then

Yes ! This time it went through all the names – there were 255 names with wrong format -  these were skipped.

Thanks again :-)