Yani raporunuz şöyle mi olacak? Raporu çalıştırıp bakın. (Sadece firmaları yanyana yazma olayıyla uğraşmadım. İlla öyle olmalı derseniz, uğraşırız biraz.)

Mehmet Bey yardımlarınız için çok teşekkür ederim ama evet firmaları yanyana yazması gerekiyor. Bakanlıktan gelen bir format var ve o formattan baskasını kabul etmiyorlar bu yüzden firmalar yanyana gelmeli. Yani her hayvan ırkı bir defa yazmalı ve firmalar yanyana gelerek toplam tohum miktarını yanına yazmalı...

Mehmet bey sizin söylediklerinizi biraz değiştirerek istediğime bir adım daha ulaştım ancak küçük bir sorun var değeri olmayan verilere #hata diye uyarı veriyor. Bu hata kodunu nasıl gizleyebiliriz. Sorguyu ekte gönderiyorum.

Ben günlerdir o hata satırını düzeltmek için uğraşıyorum ya)

çözümünü bulursam sizinle paylaşacağım o zaman

Selamlar
Demiral üstadımız döktürmüş yine.
Son sorunda benden olsun.
Ek yükleyemiyorum. Aşağıdaki gibi düzenlerseniz sorun çözülür

Sorgudaki deyim :
Firmalar: (Yanyana([Irklar];Nz(Month([Tarih]))))
Moduldeki fonksiyon :
Public Function Yanyana(Irk As String, Optional Ay As String) As String
On Error GoTo cikis:
Dim intAy As Long
intAy = Nz(Ay)
Dim Kyt As Recordset, Dizi As String
Set Kyt = Application.CurrentDb.OpenRecordset(" Select Firma From Tank Where ((([Irkı])='" & Irk & "') And ((Month(Tarih))=" & intAy & "))")
Do
Dizi = Dizi & Kyt.Fields(0) & ","
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing
Yanyana = Dizi
Exit Function
cikis:
Yanyana = ""
End Function