إظهار السجلات المتتالية بجانب بعضها فى تقرير

[N_ELMASRY]

الأستاتذة الأفاضل

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

عندى سجلات متتالية للدورات التى حصل عليها موظف خلال فترة عمله بالإدارة، وأود طباعة إفادة بالدورات التى حضرها الموظف ولكن تكون بجانب بعضها فى التقرير بالصورة التالية: 

تفيد الادارة أن الموظف رقم سجله/ 1010 قد حصل على الدورات: برمجة/ فوتوشوب/ تصميم ويب خلال فترة عمله بالإدارة.....الخ

فهل هناك طريقة يتم بها هذا التقرير بالصورة المطلوبة

مرفق قاعدة بيانات كمثال للتطبيق

ولكم جزيل الشكر والتقدير

كتابة الدورات بجانب بعضها لكل موظف.rar

[ابوخليل]

Dim fld As Object
Set fld = CurrentDb.OpenRecordset("tableName")
With fld
.MoveFirst
Do Until .EOF
.Edit
On Error Resume Next
If [id] = .Fields("id") Then
[textName] = [textName] & " " & "/" & .Fields("textName")
End If
.Update
.MoveNext
Loop

fld.Close
End With
Set fld = Nothing

 

[N_ELMASRY]

2 دقائق مضت, ابوخليل said:

Dim fld As Object
Set fld = CurrentDb.OpenRecordset("tableName")
With fld
.MoveFirst
Do Until .EOF
.Edit
On Error Resume Next
If [id] = .Fields("id") Then
[textName] = [textName] & " " & "/" & .Fields("textName")
End If
.Update
.MoveNext
Loop

fld.Close
End With
Set fld = Nothing

 

جزاك الله خيرا على سرعة الرد، ولكن يكتب هذا الكود فى اى حدث؟

وكيف يتم اظهاره فى التقرير؟

تم تعديل ديسمبر 1, 2019 بواسطه N_ELMASRY

[ابوخليل]

يكتب في محرر الاكواد في حدث تنسيق تفصيل التقرير

تفضل

 

كتابة الدورات بجانب بعضها لكل موظف2.rar

[N_ELMASRY]

14 دقائق مضت, ابوخليل said:

يكتب في محرر الاكواد في حدث تنسيق تفصيل التقرير

تفضل

 

كتابة الدورات بجانب بعضها لكل موظف2.rar 11.71 kB · 0 تنزيلات

أشكرك على المتابعة وأعتذر للازعاج
تظهر خطأ كما بالصورة
 

[ابوخليل]

هذه هي النتيجة كما يظهر بالصورة اعلاه

بحيث تكون كل افادة في صفحة

جرب مرر الى الصفحات التالية

[أبوبسمله]

5 ساعات مضت, ابوخليل said:

يكتب في محرر الاكواد في حدث تنسيق تفصيل التقرير

تفضل

 

كتابة الدورات بجانب بعضها لكل موظف2.rar 11.71 kB · 3 تنزيلات

اخى واستاذى ابو خليل جزاك الله خيرا

المرفق يعمل جيدا على على اصدار 2003

ولكن لا يعمل ويعطى الخطأ فى معى على اصدار 2016  هل من تعديل له ليتناسب مع اصدارات اعلى من 2003

تقبل تحياتى

طبتم واهتديتم

[ابوخليل]

هنا بيت القصيد .. حيث املك في حاسبتي الاصدار 2003 فقط .. وهو سبب رئيس في ندرة مشاركاتي

فلعل احدا من اخواننا الخبراء الأعزاء ممن لديه هذا الاصدار ان يتفضل علينا بالتعديل

[أبوبسمله]

الان, ابوخليل said:

هنا بيت القصيد .. حيث املك في حاسبتي الاصدار 2003 فقط .. وهو سبب رئيس في ندرة مشاركاتي

فلعل احدا من اخواننا الخبراء الأعزاء ممن لديه هذا الاصدار ان يتفضل علينا بالتعديل

حبيبى فالله واخى واستاذى الجليل ابوخليل

لازال هناك من يعشقون العمل على 2003 ولكن لا يوجد مانع فى وجودهم معا وتشاركنا دائما فنحن نريد معا دائما على طول الطريق اخ ومعلم استاذى العزيز

تقبل تحياتى

طبتم واهتديتم

[محمد أبوعبدالله]

من بعد اذن استاذنا واخونا الفاضل @ابوخليل

تفضل اخي الكريم

كتابة الدورات بجانب بعضها لكل موظف2.rar

تحياتي

[أبوبسمله]

16 ساعات مضت, محمد ابوعبد الله said:

من بعد اذن استاذنا واخونا الفاضل @ابوخليل

تفضل اخي الكريم

كتابة الدورات بجانب بعضها لكل موظف2.rar 16.24 kB · 3 تنزيلات

تحياتي

بارك الله فيك اخى محمد وجزاك الله عنا كل خير

واستفدت من طريقتك وقمت بتجربتها على تقرير اصدار 2003 يستخدم PageSum  وقمت بالحاقه لمربع النص والنتيجه تمام

جزاك الله كل خير

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

[N_ELMASRY]

جزاكم الله خيرًا على الاهتمام وأعتذر على التأخر فى الرد

ولكن لماذا يتكرر التقرير لكل موظف حسب عدد الدورات؟