Ang. Opdeling af vej og husnummer

The problem is very likely becuase one of the addresses doesnt suit the algorithm used to split it up.

Cant you try debbuging the code?

I don't really know how to debug code :(

what values does ADR1 and pos have when you get the error?

Can you send me your db?
eksperten@NOSPAMsanthell.dk
remove NOSPAM

Is it ok if i just send you the address field, it is client data, and as such, confidential

Yes, no problem, I just want to see the data and debug through Thomas's code to see what is happening

The problem is that there are many occurences where there is no address at all entered, only an e-mail. and a couple with a number first in the sequence (foreign addresses.

this is obvioulsy the problem, so Thomas's code will need altering.

Problem is what do you want to see if the address can not be split up?

You might be able to use this

Public Function SplitAdresse_FindGadenavn(Adresse As String) As String
    Dim pos As Integer

on Error goto Proc_Err

    pos = 1
    Do Until pos >= Len(Adresse) Or (Mid(Adresse, pos, 1) >= 0 And Mid(Adresse, pos, 1) <= 9)
        pos = pos + 1
    Loop
    SplitAdresse_FindGadenavn = Left(Adresse, pos - 2)

exit function

Proc_Err:
SplitAdresse_FindGadenavn = ""
End Function

Public Function SplitAdresse_FindVejnr(Adresse As String) As String
on Error goto Proc_Err

    SplitAdresse_FindVejnr = Mid(Adresse, Len(SplitAdresse_FindGadenavn(Adresse)) + 2)

exit function

Proc_Err:
SplitAdresse_FindVejnr = ""

End Function

if an error occurs then you get an empty string (not tested)

Hi Terry
The query no longer returns an error, but it still writes #Fejl  this is not critical, but it would be nicer to have the fields blank, since there really is no address

I think I need to see the dB if that is OK?

Sorry, can't send it. Out of 33000 clients it is only a problem on 30, so I think I'll need to hand correct it. But you'll get the points :)

thanks :o)