aşağıdaki yordamı ona göre uygun bir yerden çağırırsınız.
Sub Rs2Metin()
SQL = " SELECT Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]) AS sonuc" & _
" FROM Tablo2 INNER JOIN Tablo1 ON Tablo2.Kimlik = Tablo1.sirano" & _
" 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(, , " : ", vbNewLine) & "Malzemeler kalmıştır" Else xSonuc = "Kayıt bulunamadı"
Metin0 = xSonuc
End Sub