(28/09/2022, 10:25)berduş yazdı: önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu yazın

Public Function xYanYana(xPartiNo As Long) As String

xYanYana = ""

xAyrac = " - "

xSQL = "SELECT  [Bidon Zimmet].[Bidon No] " & _

      "FROM [Bidon Zimmet] " & _

      "WHERE ((([Bidon Zimmet].parti_no)=" & xPartiNo & "));"



Set rs = CreateObject("adodb.recordset")

    rs.Open xSQL, CurrentProject.Connection, 3, 1

xYanYana = rs.Getstring(, , , xAyrac, "")

lnYan = Len(xYanYana & "")

lnAyr = Len(xAyrac & "")

xYanYana = Left(xYanYana, lnYan - lnAyr)

End Function

daha sonra da raporunuzun kayıt kaynağını aşağıdaki kodla değiştirin

SELECT xYanYana([Formlar]![Giris Çıkış]![Parti No]) AS [Bidon No] 

FROM [Bidon Zimmet] 

GROUP BY xYanYana([Formlar]![Giris Çıkış]![Parti No]), [Bidon Zimmet].parti_no;  

hocam çok özür dilerim sizi uğraştırıyorum ama, eklediğim dosyada düzeltip ekleyebilirmisiniz? Çok teşekkür ederim.