تعديل لكود إدراج بيانات جدول (مرتبط بجدولين آخرين) في جدول آخر

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

في هذا الموضوع أريد تعديل لكود إدراج بيانات جدول (مرتبط بجدولين آخرين) في جدول آخر:

اني عندي جدول اسمه tbl_info_fonctionnaire   الكود الحالي يقوم بادراج بيانات جدول tbl_info_fonctionnaire   في جدول  : tbl_evaluation   

(الكود موجود في النموذج وفي الزر المسمى إدراج).

لاحتياجاتي في العمل :

اريد إضافة بيانات  (   حقلين آخرين من جدولين آخرين )   في جدول tbl_evaluation :

الحقلين هما:

الحقل الذي اسمه:  situation_special من جدول : tbl_situation_juridique_mouv

الحقل الذي اسمه:  nom_poste من جدول : tbl_poste_superieur

الجدولين عندهم علاقة بالجدول tbl_info_fonctionnaire   : عن طريق الحقلين

num  و   code_fonctcode

كما في الصورة

يعني في النهاية أجد في جدول tbl_evaluation  بيانات الحقلين situation_special   و  nom_poste  والذين يتم ادراجهما بياناتهم من الجدولين tbl_situation_juridique_mouv  و tbl_poste_superieur

الرجاء المساعدة والتوجيه وجزاكم الله خيرا ان شاء الله

 

 

BASEM.accdb

[Eng.Qassim]

طبعا لاني اتوه في المسميات ...اختصرت الجداول والحقول التي تريدها...وانت احتار في البقية 😂

عملت لك دالة تقوم بتحديث البيانات من الجدولين.. افتح النموذج واضغط على الزر..

ولزيادة الفائدة عملت لك استعلامين تحديث ..اذا اردت استخدامهم

سؤالي هو مافائدة السنة والشهر في النموذج فليس لهم علاقة بالتحديث 

تحديث بيانات جدول .accdb

[moho58]

2 ساعات مضت, Eng.Qassim said:

طبعا لاني اتوه في المسميات ...اختصرت الجداول والحقول التي تريدها...وانت احتار في البقية 😂

عملت لك دالة تقوم بتحديث البيانات من الجدولين.. افتح النموذج واضغط على الزر..

ولزيادة الفائدة عملت لك استعلامين تحديث ..اذا اردت استخدامهم

سؤالي هو مافائدة السنة والشهر في النموذج فليس لهم علاقة بالتحديث 

تحديث بيانات جدول .accdb 940 kB · 5 downloads

تحية طيبة أخي الكريم

شكرا كثيرا على الرد والاهتمام بموضوعي

هذا البرنامج خاص بتقييم آداءات الموظفين (بناء على طلب لي سابق في المنتدى  بمساعدة أحد اساتذتنا الأفاضل)

وقد اختصرت منه وأبقيت فقط على المهم والذي احتاجه في طرح سؤالي

tbl_info_fonctionnaire  : فيه جميع المعلومات الخاصة بالموظفين

tbl_evaluation:  فيه معايير تقييم أداءات الموظفين

يتم الحاق بيانات الموظفين من جدول المعلومات الخاص بالموظفين  التي أحتاجها إلى جدول معايير الموظفين

وهذا بواسطة الكود السابق الذي يشتغل جيدا-

بناء على احتياجاتي اردت فقط تعديله وادخال معلومات جديدة إلى جدول معايير الموظفين (tbl_evaluation)  إنطلاقا من جدول: tbl_situation_juridique_mouv و جدول: tbl_poste_superieur

أخي الفاضل:

البرنامج فيه بيانات موظفين ومعلومات وفيه كذلك تقييمات لذلك:

أريد الابقاء على جميع الجداول وبنفس التسميات و اعمل تحديث للكود لاضافة الحقلين في جدول tbl_evaluation

حتى لا يكون هناك  تأثير على بياناتهم و تقييماتهم .

ان شاء الله أكون قد أوصلت لك الفكرة

و جزاك الله كل الخير أخي الفاضل.

 

 

[kkhalifa1960]

مشاركة مع استاذي @Eng.Qassim اليك استاذ @moho58 محاولتي حسب مافهمت . ووافني بالرد .

BASEM-1.rar

[moho58]

17 دقائق مضت, kkhalifa1960 said:

مشاركة مع استاذي @Eng.Qassim اليك استاذ @moho58 محاولتي حسب مافهمت . ووافني بالرد .

BASEM-1.rar 52.25 kB · 0 downloads

تحية طيبة أخي الكريم

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

تقريبا هذا هو المطلوب بالضبط

أعذرني نسيت ولم انتبه أن اضع كود في النموذج

وعند اختيار الشهر  اجراء حدث بعد التحديث:

Me.Text1 = Me.mois.Column(2)
Me.Text2 = Me.mois.Column(1)

لانهما موجودين في الكود السابق: 

If IsNull(Me.annet) Or IsNull(Me.mois) Then
Beep
MsgBox "يجب ادخال السنة والشهر", , "تنبيه"
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_evaluation (classementliste,loifondamontale,num, numFonctionnaire, prenomArabe, gradePosteActuel, annet, mois, part_year ) " & vbCrLf & _
"SELECT  tbl_info_fonctionnaire.classement_liste,tbl_info_fonctionnaire.loi_fondamontale,tbl_info_fonctionnaire.num, tbl_info_fonctionnaire.num_fonctionnaire,tbl_info_fonctionnaire.prenom_arabe, tbl_info_fonctionnaire.grade_poste_actuel, [forms]![frm_AddMonth]![annet] AS Expr1, [forms]![frm_AddMonth]![mois] AS Expr2, [forms]![frm_AddMonth]![text1] AS Expr3 " & vbCrLf & _
"FROM tbl_info_fonctionnaire"
DoCmd.SetWarnings True
MsgBox "تم الادراج", , ""

End If

وكذلك رسالة التنبيه أخي التي أضفتها رغم ان السنة و الشهر للموظف غير موجودين في الموظف : مع ذلك تأتي رسالة تخبرك بوجوده من قبل

وشكرا كثيرا

[kkhalifa1960]

مو فاهم ايش المطلوب ؟؟

[moho58]

15 دقائق مضت, kkhalifa1960 said:

مو فاهم ايش المطلوب ؟؟

اخي الكريم تقريبا هذا هو المطلوب

فقط في النموذج وعند اختيار الشهر يوجد كود في حدث بعد التحديث لم اضعه انا من قبل ونسيته

لكي تستعمله انت في الكود الجديد الخاص بك 

الكود هو

وعند اختيار الشهر  اجراء حدث بعد التحديث:

Me.Text1 = Me.mois.Column(2)
Me.Text2 = Me.mois.Column(1

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

[kkhalifa1960]

تفضل أخي @moho58 طلبك بالمرفق .

BASEM-2.rar

[moho58]

2 ساعات مضت, kkhalifa1960 said:

تفضل أخي @moho58 طلبك بالمرفق .

BASEM-2.rar 34.23 kB · 3 downloads

جزاك الله كل الخير الأخ والأستاذ الفاضل وربي يبارك لك  في جميع أمورك هذا هو المطلوب بالضبط

فقط انا قمت بكتابة LEFT    مكان INNER   حتى يظهر جميع الموظفين في جدول  tbl_evaluation

وهذا عند الضغط على زر إدارج  ،  حتى وإن كان الموظفين غير موجودين في جدول :

tbl_poste_superieur  

ألف شكر وامتنان  أخي