Gegevens samenvoegen

[ivdh]

Ik heb een tabel met de indeling:

KlachtId, InstantieId
3 4
3 5
3 6
4 5
4 3
5 4

Ik wil deze graag via een query als onderstaand weergeven:
KlachtId, Instantie
3 4;5;6
4 5;3
5 4

Weet iemand of en hoe dat mogelijk is?

 

[Bartuls]

Dat kan, alleen moet je er wel wat voor programmeren.
De SQL ziet er als volgt uit:

SELECT DISTINCT tblTest.KlachtID, fnGetInstanties([KlachtID]) AS Instantie
FROM tblTest;


Je moet dan de volgende functie in een module plaatsen:

Public Function fnGetInstanties(KlachtID As Integer) As String
Dim db As Database
Dim rs As Recordset
Dim strSQL As String

strSQL = "SELECT InstantieID FROM tblTest WHERE KlachtID = " & CStr(KlachtID)

Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

rs.MoveFirst
Do While Not rs.EOF
fnGetInstanties = fnGetInstanties & CStr(rs!InstantieID) + ";"
rs.MoveNext
Loop

fnGetInstanties = Left(fnGetInstanties, Len(fnGetInstanties) - 1)
End Function

 

[ivdh]

ThankS! Dit werkt heel goed.