(31/12/2022, 13:53)berduş yazdı: fonksiyonu ve sorguyu aşağıdaki gibi düzenleyip dener misiniz?
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] & "*"));

işlem tamamdır hocam Allah razı olsun.