تفضل مع ملاحظة انه يوجد خطأ في الصورة المرفقة غير متوافقة مع البيانات من ما توهنا شويتين . حيث يوجد في السطر الثالث بالصورة الاسم احمد والاصح نبيل .
لاحظ الاستعلام والدالتين بالوحدة النمطية العامة.
'رمهان
'abc_2_me@hotmail.com
Public Function fn(p)
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Table1.Ch_Name FROM Table1 WHERE ((([Pr_Code] & [Start_Date] & [End_Date] & [Pr_Details])='" & p & "'));")
rs.MoveLast
rs.MoveFirst
For i = 1 To rs.RecordCount
xn = xn & rs(0) & " - "
rs.MoveNext
Next i
fn = Left(xn, Len(xn) - 3)
End Function
Public Function fn2(p)
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Table1.Product_ID FROM Table1 WHERE ((([Pr_Code] & [Start_Date] & [End_Date] & [Pr_Details])='" & p & "'));")
rs.MoveLast
rs.MoveFirst
For i = 1 To rs.RecordCount
xn = xn & rs(0) & " & "
rs.MoveNext
Next i
fn2 = Left(xn, Len(xn) - 3)
End Function
لاحظ انه تم عمل الدالتين ليصبح الحل مطبق على الاستعلام والتقارير !
هذا وان هو المطلوب تماما اخبرني بذلك ليتم الشرح !
بالتوفيق
ramhan.rar