ö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;
