İ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