تحديث من قائمة منسدلة بها اربعة اعمدة

[ابوصلاح]

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

في المرفق التالي

نموذج به قائمة منسدلة بها ارعة اعمدة الوظفه نص - الكادر رقم- حافز الاداء رقم -بدل المعلم رقم في جدول الوظائف jobs

الجدول الاخر الرواتب كيف يتم عمل استعلام تحديث عند اختيار الوظيفة يتم تحديث الحقول لمبلغ كادر المعلم والاداء المميز و بدل المعلم  في جدول الرواتب

tb_rateb

كود	الاسم	قائمة الوظائف	كادر	اداء مميز	بدل معلم
1	محمود	معلم	0.00	0.00	0.00
2	علي	معلم اول ا	0.00	0.00	0.00

استعلام تحديث لاعمدة القائمة المنسدلة.rar

[kha9009lid]

هل هذا المطلوب

استعلام تحديث لاعمدة القائمة المنسدلة.accdb

[ابوصلاح]

اولا بارك الله فيك علي سرعة الرد

لكن ليس هذا ما اقصده انما استعلام تحديث

علي فرض انك يتم الاختيار من القائمة المنسدلة مثلا في نموذج ما وتريد التحديث الي نموذج اخر غير مفتوح

نعم الكود يفي بما قدمت وهي شيء سهل

انما كيفية استخدام الاستعلام تحديث هو المطلوب

[Abu Farid]

وعليكم السلام

جرب التعديل

استعلام تحديث لاعمدة القائمة المنسدلة.rar

[ابوصلاح]

بس دا اعلام تحديد استاذ

 

Abu Farid

بس انا كنت نسي شي واحد هو الاساسي علشان نضرب فيه النسب

انظر ما تصلت اليه انا بجهدى القليل

استعلام تحديث لاعمدة القائمة المنسدلة.rar

تم تعديل يناير 16, 2020 بواسطه ابوصلاح

[د.كاف يار]

تفضل هذا التعديل اخي الكريم

في حدث القائمة المسندلة لأختيار الوظيفة انسخ الكود و الصقه

On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
Dim x1, x2, x3
x1 = DLast("[m1]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]")
x2 = DLast("[m2]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]")
x3 = DLast("[m3]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]")

DoCmd.RunSQL "UPDATE tb_rateb SET tb_rateb.amount1 = '" & x1 & "', tb_rateb.amount2 = '" & x2 & "', tb_rateb.amount3 = '" & x3 & "' WHERE [tb_rateb.id)=[Forms]![frm_rateb]![id];"

DoCmd.SetWarnings True

 

استعلام تحديث لاعمدة القائمة المنسدلة.accdb