Function xGrup(xID As Long) As String
xSQL = "select [Adısoyadi] from [tablo1] where aracID=" & xID
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
xGrup = Left(xGrup, xKes)
End Function
daha sonra raporunuzun veri kaynağına aşağıdaki sorgu kodunu ekleyinSELECT Tablo2.araclar, xGrup([kimlik]) AS [Adı Soyadı]
FROM Tablo2;
son olarak Metin2'nin Denetim Kaynağını: Adı Soyadı olarak değiştirindilerim işinize yarar
Not: Fazla isim olduğunda rapordaki metin kutusuna sığmayabileceği için Metin2'nin Büyüyebilir özelliği EVET olarak değiştirilmelidir