كيف يمكن تبديل لجنة مكان لجنة

[haniameen]

السلام عليكم اساتذتي في هذا المنتدى 

لدي استعلام اسمه 

min

به حقل اسم المراقب وكود المراقب 

المطلوب عمل نموذج يتم من خلاله التبديل يدويا في اللجان بين المراقبين نتيجة وجود موانع تطرأ فجأة مثلا  نظرا لبعد المكان او وجود موانع اخرى

مثلا : عندي مراقب اسمه هاني ولجنته في اليوم الأول هي المدرسة الفندقية بالاقصر

وعندي مراقب ثاني اسمه عبد الكريم ولجنته في اليوم الأول هي مدرسة الشهداء الابتدائية بالطود

المطلوب مثلا تبديل لجنة هاني لتصبح مدرسة الشهداء الابتدائية بالطود

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

طبعا مع تغير حقل 

lagnah_code   و  edara و school 

تلقائيا عند تغيير اللجنة 

 ارجو ان اكون قد اوصلت فكرتي لأساتذتي في هذا المنتى

tabdeel.mdb

تم تعديل فبراير 9, 2021 بواسطه haniameen

[husamwahab]

تفضل التعديل ارجو ان يكون طلبك

 

tabdeel-1.rar

[haniameen]

1 hour ago, husamwahab said:

تفضل التعديل ارجو ان يكون طلبك

 

tabdeel-1.rar 44.28 kB · 0 downloads

شكرا اخي حسام جاري التجريب 

[haniameen]

23 hours ago, husamwahab said:

تفضل التعديل ارجو ان يكون طلبك

 

tabdeel-1.rar 44.28 kB · 7 downloads

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

[ابوخليل]

بعد اذن اخي حسام

انت بحاجة لمثل هذا

Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم
Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم
rs1.Edit: rs1!tech_code = المراقب الثاني
rs2.Edit: rs2!tech_code = المراقب الأول
rs1.Update: rs2.Update

لاحظ انه غالبا يصعب تمرير المعايير  لنموذج غير منضم  داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط  

tabdeel2.rar

[haniameen]

12 hours ago, ابوخليل said:

بعد اذن اخي حسام

انت بحاجة لمثل هذا

Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم
Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم
rs1.Edit: rs1!tech_code = المراقب الثاني
rs2.Edit: rs2!tech_code = المراقب الأول
rs1.Update: rs2.Update

لاحظ انه غالبا يصعب تمرير المعايير  لنموذج غير منضم  داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط  

tabdeel2.rar 34.14 kB · 1 download

الصراحة حاجة جميلة أخي ابو خليل روعة في الأداء سهولة وبساطة الكود سرعة في التنفيذ

جزاك الله خيرا اخي ابو خليل وحفظكم الله ورعاكم ودمتم في الخير واعلاء كلمة هذا المنتدى وشكري لأاخي حسام على مجهوده 

  

[ابوبسمله]

جزاكم الله خيرا اخوانى واساتذتى @ابوخليل و @husamwahab 💐