اذهب الي المحتوي
أوفيسنا

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


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

 

رابط هذا التعليق
شارك

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

 

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

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

تم تعديل بواسطه N_ELMASRY
رابط هذا التعليق
شارك

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

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

تفضل

 

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

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

2019-12-01 13_40_08-Microsoft Access - كتابة الدورات بجانب بعضها لكل موظف2 _ Database (Access 2000 f.png

رابط هذا التعليق
شارك

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

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

تفضل

 

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

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

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

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

تقبل تحياتى

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

رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

تقبل تحياتى

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

رابط هذا التعليق
شارك

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

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

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

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

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

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

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

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

رابط هذا التعليق
شارك

  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information