Kombinere værdier i en felt

yes its possible but it would need to be done in code

Thanks for replying terry. I do have some understanding of VB codes. Would you please try to explain how? I hope its not too complex.

if it's too complex then may be I should assign more points to it!

hvordan vil du have vist resultatet? Som forespørgsel? I en formular?

Som forespørgsel

So you want to keep your table as it is?

You will need to make a query which selects distinct KundeNr (only one record for each kundenr). Then you need to make a function in a module which you call from the query. You need to pass the kundeNr as a arguemnt to the function, and theh function is to return a string.

In the function you need to open a recordset which selects all KundeType for the current KundeNr.

Loop through the recordset and concatenate each KundeType to a string with a ","

When finished looping you need to remove the last "," from the string. Then return the string to the query.

Terry > Du har beskrevet løsningen, men eg måtte lige forsøge at lave det.
Jeg kan ikke umiddelbart se andre måder at gøre det på, men hvis det er store tabeller tror jeg ikke det kører specielt hurtigt.

Først funktionen:
----------
Function Concat(kundenr As Long) As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sTyper As String
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT kundetype FROM table1 WHERE kundenr=" & kundenr)
Do While Not rs.EOF
    sTyper = sTyper & rs!kundetype & ", "
    rs.MoveNext
Loop
Concat = Left(sTyper, Len(sTyper) - 2)
Debug.Print Concat
rs.Close
Set rs = Nothing
Set db = Nothing
End Function
----------

Og så skal den bruges således i en forespørgsel:

SELECT kundenr, concat([kundenr]) AS eks FROM Table1 GROUP BY kundenr, concat([kundenr])

solopolo > Funktionen skal du så bare sætte ind i et modul.

Looks good Jesper. And I agree that with large tables it may be rather slow.

Have a good Christmas everyone

Jesper, når jeg køre din løsning så stopper module på "db As DAO.Database" med fejl medl. "Compile error: User-defined type not defined". Hvad gøre jeg forkert?

Du mangler en reference til DAO 3.6

Gå ind i VB-editoren > Tools > references.
Scroll ned og find "Microsoft DAO 3.6" (el. 3.51) og afkryds den.
Så skulle det køre.

du kan evt. fjerne referencen til ADO 2.1 hvis du ikke bruger den.
Hvis du ikke ved, om du bruger den, gør du det nok ikke.

Nu kører det fint, tusind tak Jesper.
Bare et spørgsmål til: det kørte første efter jeg har lavet "Kundenr" felt om fra tekst til tal. Er denne løsning kun til Tal type felter?

Nej jeg tror sagtens det kan køre hvis "kundenr" er tekst.

Så skal denne linje i funktionen:
Set rs = db.OpenRecordset("SELECT kundetype FROM table1 WHERE kundenr=" & kundenr)

ændres til:
Set rs = db.OpenRecordset("SELECT kundetype FROM table1 WHERE kundenr='" & kundenr & "'")

Yes, det virker fint med tekst felt :-)

Tak for point. Godt det virker.
Hvis dit kundenr altid er et tal bliver der nok ingen problemer, men hvis kundenr kan være f.eks. "A2222" eller lignende skal dette nok ændres:

Function Concat(kundenr As Long) As String

til

Function Concat(kundenr As string) As String

Det burde man nok gøre under alle omstændigheder, da du nu har sat kundenr til at være tekst i tabellen.

Det var godt at du lige nævnte det for der er faktisk blandet kundenr i drift databasen.
Tak for denne gang :-)

Selv tak :-)