دمج المكرر في TextBox واحد بشرط

[Ahmed Abo Asela]

السلام عليكم ورحمة الله وبركاتة

اريد طريقة لجمع القيم المكررة داخل التقرير او الاستعلام في Textbox واحد بناءا علي Criteria محددة مسبقا 

مرفق مثال وصورة لشكل التقرير

Concatenate.rar

تم تعديل فبراير 8, 2015 بواسطه Ahmed Abo Asela

[رمهان]

يبدو ان سؤالك اخي الكريم جميل ويشغل البطيخة بتاعتنا !

حبذا مرفق قاعدة الاكسس وشرح المطلوب اكثر !

تحياتي

[Ahmed Abo Asela]

اخي الكريم

شكراً لمرورك 

 حبذا مرفق قاعدة الاكسس وشرح المطلوب اكثر !

انا بالفعل ارفقت قاعدة بيانات و صورة توضيحية للمطلوب 

[رمهان]

عزيزي

الملف الذي بأول مشاركة لا يحتوي على قاعدة البيانات فقط صورة توضيحية والتي لم توصل المطلوب تماما !

 

تحياتي

[Ahmed Abo Asela]

عذرا اخي
تم ارفاق قاعدة البيانات

Concatenate.rar

[رمهان]

تفضل مع ملاحظة انه يوجد خطأ في الصورة المرفقة غير متوافقة مع البيانات من ما توهنا شويتين . حيث يوجد في السطر الثالث بالصورة الاسم احمد والاصح نبيل .

لاحظ الاستعلام والدالتين بالوحدة النمطية العامة.

'رمهان
'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

[طاهر اوفيسنا]

اخي رمهان معذرة عن المداخلة 

لقد اعجبت بالفكرة وحاولت تطبيقها على هذا الإستعلام فلم أفلح

SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.Transfer
FROM Employee
GROUP BY Employee.EmployeeID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.Transfer;

الوحدة النمطية

'رمهان
'abc_2_me@hotmail.com
Public Function fn(p)
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Employee.Nom et Prénom FROM Empolyee WHERE ((([EmployeeID] & [Name COMPTE] & [Name COMPTE] & [N° COMPTE])='" & 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 Employee.Product_ID FROM Employee WHERE ((([EmployeeID] & [Name COMPTE] & [Name COMPTE] & [N° COMPTE])='" & 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

ارجو التعديل

وفقك الله وسدد خطاك

تم تعديل فبراير 18, 2015 بواسطه كريمو2

[رمهان]

اهلا بك اخي كريمو واسف عالتاخير

لم افهم ماتريد بالضبط ؟ حبذا شرح المطلوب من الصفر . مثلا تقول لدي جدول موظفين وأريد دمج السجلات الفلانية امام كل موظف وهكذا . وحبذا ارفاق القاعدة !

 

بالتوفيق

[Ahmed Abo Asela]

بارك الله فيك اخي رمهان
استفسار صغير 
هل '" & p & "' مرتبطة ب  Public Function fn(p) 

[رمهان]

اخي

لم افهم ماذا تقصد ؟ ممكن تشرح اكثر؟!