Samle data

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]);

Jeg har testet det, men jeg kan ikke rigtigt få funktionen til at køre

Jeg har gjort sådan her:

Private Sub Kommandoknap0_Click()
DoCmd.OpenFunction "Samle", acViewNormal

End Sub

Men den vil ikke rigtigt

Der ligger en test kopi af den her

https://www.dropbox.com/s/68ozqk00mx11zhb/Database3.accdb?dl=0

Du skal ikke kalde funktionen fra din form.
Du skal kalde den direkte i den forespørgsel, som ligger bag din form - præcis som jeg har vist:

SELECT Lars1.Sted, samle([Sted]) AS x
FROM Lars1
GROUP BY Lars1.Sted, samle([Sted]);

(udskift selv tabelnavnet)

Så lykkedes det tilsyneladende. Takker for point ;O)