تفضل 🙂   من استعلام المجاميع qry_rpt ننادي الدالة Concatenate_test_items التي تقوم بإرسال قيمة code ، ومنها تجمع النتائج test في سطر واحد . والنتيجة . ونستعمل هذا الاستعلام كمصدر بيانات التقرير.   وهذه هي دالة Concatenate_test_items : Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[