loop

"SELECT * FROM [TA_K_kunder] order By adr"

If you want to see all people with the same address then you HAVE to show the address and the people.

If you only want to see those for a specific addresss the
SELECT * FROM [TA_K_kunder] WHERE adr = 'Some Address'

hmmm tror ikke du forstod mit spg terry.
jeg skal have den til at skrive alle navne op i msgboxen (såfremt der er mere en en der har samme adr som angivet)

OK back in five :o)

det gør jeg jo her ---
If rec.Fields("adr") = Me.Adr
------
den anden sql virker jo ikke hvis der ikke er nogen der ens så vil den jo lave en fejl

takker , hvor lang tid har du egentlig arbjedet med access...

juks what is me.adr, is it a field containingan address you are trying to find duplicates for ?

about 5 years!

this cant be far out (NOT TESTED)

Dim rec As DAO.Recordset
Dim sql As String
Dim db As Database

Dim sAdr as String 'for saving
Dim i as integer 'counting

sql = "SELECT * FROM [TA_K_kunder]
Set db = CurrentDb()
Set rec = db.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)

i = 0

Do While Not rec.eof

    If rec.Fields("adr") = Me. Then
        i = i +1
        sAdr = sAdr &    rec.Fields("Fornavn") & " " &     rec.Fields("Efternavn") & VBCrLf

    End If

    rec.movenext
loop

If i > 0 then msgbox "Denne addresse er oprettet for kunde " & sAdr

yes  .....
--
ok stil got 3½ years to get as good as you :-)

I've been programming over 15 years :o)

ok 13½ then

what does VBCrlf do ????

a VBClf = chr(13) or ????

carriage return + line feed

det virker perfekt !!!!!!!!!!!
takker ha en god dag

tak :o)

selv tak :o)