Det letteste er jo nok - som du selv siger - at bruge en lille funktion.
Nedenstående forudsætter en tabel ved navn Lars1 med felterne Felt1 og Felt2.
Function Samle(Bynavn As String) As String Dim Rst As Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Lars1.* FROM Lars1 WHERE Felt1='" & Bynavn & "'") With Rst Samle = "" Do Until .EOF If Samle <> "" Then Samle = Samle & "+" Samle = Samle & !Felt2 .MoveNext Loop .Close End With Set Rst = Nothing End Function
Du kan så bruge den direkte i en forespørgsel, f.eks.:
SELECT Lars1.Felt1, samle([Felt1]) AS x FROM Lars1 GROUP BY Lars1.Felt1, samle([Felt1]);
Så lykkedes det tilsyneladende. Takker for point ;O)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.