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

[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.accdbFetching info...

[Eng.Qassim]

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

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

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

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

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

[moho58]

  في 18‏/1‏/2025 at 16:25, Eng.Qassim said:

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

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

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

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

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

Expand  

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

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

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

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

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

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

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

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

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

أخي الفاضل:

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

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

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

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

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

 

 

[kkhalifa1960]

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

BASEM-1.rarFetching info...

[moho58]

  في 18‏/1‏/2025 at 18:49, kkhalifa1960 said:

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

BASEM-1.rar 52.25 kB · 0 downloads

Expand  

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

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

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

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

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

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]

  في 18‏/1‏/2025 at 19:39, kkhalifa1960 said:

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

Expand  

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

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

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

الكود هو

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

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

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

[kkhalifa1960]

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

BASEM-2.rarFetching info...

[moho58]

  في 18‏/1‏/2025 at 20:54, kkhalifa1960 said:

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

BASEM-2.rar 34.23 kB · 3 downloads

Expand  

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

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

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

tbl_poste_superieur  

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