İyi akşamlar. Cevabınız için teşekkür ederim. "vbNewLine" bu kısmı değiştirdiğimde istediğim gibi yan yana sıralanıyor. Vermiş olduğunuz kodun üçüncü satırı c firması : 1, 3 ancak c firması : 4,6 olması gerekiyor. Eklediğim dosyada form üzerinde belirttim. Koddaki "sırano" yu değiştirdiğimde hata verdi.

(29/12/2023, 20:20)nakres64 yazdı: Eklediğim dosyada form üzerinde belirttim. Koddaki "sırano" yu değiştirdiğimde hata verdi.

kodda bir yerde hata yapmış olabilirsiniz,

Sub Rs2Metin()

SQL = " SELECT Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]) AS sonuc" & _

      " FROM Tablo2 INNER JOIN Tablo1 ON Tablo2.Kimlik = Tablo1.firma" & _

      " GROUP BY Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]);"



Set rs = CurrentProject.Connection.Execute(SQL)

If Not rs.EOF And Not rs.BOF Then xSonuc = rs.GetString(, , " : ", " , ") & " Malzemeler kalmıştır" Else xSonuc = "Kayıt bulunamadı"

Metin0 = xSonuc

End Sub

İyi günler. Henüz fırsatım oldu, şimdi baktım cevabınıza. Sıkıntı yok. Çok teşekkür ederim.

Rica ederim
İyi çalışmalar