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