fonksiyon:
Function xGrup(xNU As String, xFtrDnm As String) As String
xSQL = "select [SIRA_NU] from [VERİLER] where SİPARİŞ_NU='" & xNU & "' and [FATURA_DÖNEMİ]='" & xFtrDnm & "'"
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
xGrup = Left(xGrup, xKes)
End Function
Sorgu:SELECT VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ, xGrup([SİPARİŞ_NU],[FATURA_DÖNEMİ]) AS Sonuc
FROM VERİLER
GROUP BY VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ
HAVING (((VERİLER.FATURA_DÖNEMİ) Like "*" & [Formlar]![Form1]![Açılan_Kutu0] & "*"));