benim kullandığım fonksiyon
Public Function Yan_Yana(SORGU As String)

Dim rs As New Recordset

rs.Open SORGU, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Yan_Yana = ""
i = 0

While Not rs.EOF
For Each Alan_Veri In rs.Fields
i = i + 1
If i = 1 Then
Yan_Yana = Alan_Veri.Value
Else
Yan_Yana = Trim(Yan_Yana) & " - " & Alan_Veri.Value
End If
Next
rs.MoveNext
Wend
rs.Close
Set rs = Nothing

Yan_Yana = Trim(Yan_Yana)

End Function


raporda metin kutusuna aşağıdakini yazıyorum, sipariş no rapordaki birmetin kutusu, aaa ise buda rapordaki bir metin kutusu.

=Yan_yana("SELECT EK_ISLEM_KISALTMA FROM EK_ISLEMLER WHERE SIPARIS_NO=" & [AAA])