تقرير احصاء مهارات الموظفين

[ام ناصر]

تحية طيبة لجميع اساتذة واعضاء المنتدى الكرام..

لدي نموذج مبسط لجدولين احدهما لمعلومات الموظفين والآخر لمهارات كلاً منهم , المطلوب عمل تقرير يظهر جميع الموظفين مع جميع المهارات ان امتلكوها .

 حاولت ان اعمل استعلامين الاستعلام الاول :اظهر لدي فقط الموظفين الذين لديهم مهارات دون ان يظهر البقية وذلك لارتباط الجدولين بـ (ID)  الذي  يمثل رقم الموظف كما موضح في الصورة رقم 3

اما الاستعلام الثاني : فهو استعلام تحديث بيانات المهارات الى جدول المعلومات لأقوم بعمل تقرير اخذ فيه البيانات فقط من جدول المعلومات وهذه الطريقة استطعت ان اظهر جميع الموظفين لكن لم تأتي بالنتيجة المطلوبه فقط جاء التحديث فقط بأخر البيانات المدخلة لمهارات الموظفين ولم يأتي بها جميعا , كما موضح في الصورة رقم 4

النتيجة المطلوبة للتقرير هي كما في موضح في الصورة رقم 5

النموذج المبسط مرفق ادناه.

جزيل الشكر لكل من يتابع الموضوع..

Update22-3.rar

تم تعديل مارس 22, 2019 بواسطه ام ناصر
خطأ املائي

[ابو ياسين المشولي]

هل هذا ينفع

SELECT Information.ID, Information.Name, Information.[Date of commencement of work], Nz(DLookUp("[Skills]","[Skills]","[ID]=" & [ID])) AS Skills
FROM Information;

 

[ام ناصر]

24 دقائق مضت, ابو ياسين المشولي said:

هل هذا ينفع

SELECT Information.ID, Information.Name, Information.[Date of commencement of work], Nz(DLookUp("[Skills]","[Skills]","[ID]=" & [ID])) AS Skills
FROM Information;

 

استاذ ابو ياسين شكرا لمروركم وتفضلكم بمشاركة الحل لكن الاستعلام لم يوصلني للنتيجة المطلوبة , الموظف (علي محمد ناصر) لديه اكثر من مهارة في جدول المهارات ولم يظهر الاستعلام الاَ احداهن المطلوب كما موضح في الصورة رقم 5 المرفقة اعلاه.

[ابو ياسين المشولي]

شوف المرفق

Update22-3.accdb

[ام ناصر]

عفوا الاستعلام يظهر مؤهلات الموظف الاول مكررة اما الموظف الآخر فأحدى مؤهلاته مفقودة 

1 ساعه مضت, ابو ياسين المشولي said:

شوف المرفق

Update22-3.accdb 440 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

[رمهان]

@ام ناصر

مشاركة مع اخي وحبيبي @ابو ياسين المشولي

ضعي هذا الكود خلف الزر

Set rs1 = CurrentDb.OpenRecordset("information")
If rs1.RecordCount = 0 Then Exit Sub
rs1.MoveFirst
Do While Not rs1.EOF
Set rs2 = CurrentDb.OpenRecordset("select * from skills where id=" & rs1(0))
If rs2.RecordCount = 0 Then DoCmd.RunSQL "update information set skills=null where id=" & rs1(0): GoTo 10
rs2.MoveFirst
Do While Not rs2.EOF
xt = xt & rs2(1) & ","
rs2.MoveNext
Loop
DoCmd.RunSQL "update information set skills='" & xt & "' where id=" & rs1(0)
xt = ""
10: rs1.MoveNext
Loop

بالتوفيق

[ابو ياسين المشولي]

تسلم اخي رمهان

 

[ام ناصر]

سلمت الايادي استاذ @رمهان الكود اعطى النتيجة المطلوبه 

لو سمحت ممكن شرح مفردات الكود ..اكون شاكرة لحضرتك 

 

 

 

[ام ناصر]

عفواً استاذ @رمهان 

لو كان الـ (id) عبارة عن (Text) كيف حتكون معالجة الكود لانه يظهر لي مسج عدم تطابق الكود مع البيانات من نوع (Text) حاولت اعالجه متوصلت لنتيجة .

[ابو ياسين المشولي]

20 دقائق مضت, ام ناصر said:

عفواً استاذ @رمهان 

لو كان الـ (id) عبارة عن (Text) كيف حتكون معالجة الكود لانه يظهر لي مسج عدم تطابق الكود مع البيانات من نوع (Text) حاولت اعالجه متوصلت لنتيجة .

اذا كان نص بيكون هكذا

Set rs2 = CurrentDb.OpenRecordset("select * from skills where id='" & rs1(0) & "'")

 

[ام ناصر]

13 ساعات مضت, ابو ياسين المشولي said:

اذا كان نص بيكون هكذا

Set rs2 = CurrentDb.OpenRecordset("select * from skills where id='" & rs1(0) & "'")

  

شكرا جزيلا استاذ @ابو ياسين المشولي في ميزان حسناتكم ان شاء الله.

[ابو ياسين المشولي]

2 ساعات مضت, ام ناصر said:

شكرا جزيلا استاذ @ابو ياسين المشولي في ميزان حسناتكم ان شاء الله.

العفو اختي ام ناصر

وبارك الله فيك