تصحيح كود تحديث

[jo_2010]

الخبراء الافاضل 

بعد التحية والاحترام 

عندى نموذج فرعى مستمر داخل نموذج رئيسى عند الوقوف علي اى سجل من السجلات

يوجد مربع نص فى النموذج الرئيسي ياخد قيمتة من كود السجل الموجودفى النموذج الفرعى

وعندى زر تحديث لإضافة كلمة   المختبر لحقل R_external_lab فى الجدول بشرط يكون كود الجدول مساوى لرقم dا الموجود فى الرئيسي لكن التحديث يحدث فقط فى السجل الحالى الموجود فى النموذج الرئيسى وليس 

ارجو يكون طلبى واضح إليكم صورة من الكود

[Foksh]

اخي الكريم @jo_2010 ، ارفق الكود مكتوب وليس صورة اذا تكرمت .

 

 

[jo_2010]

14 دقائق مضت, Foksh said:

اخي الكريم @jo_2010 ، ارفق الكود مكتوب وليس صورة اذا تكرمت .

 

 

DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET Tbl_Lab_Requests.R_External_lab = ""المختبر"" " & _
" WHERE (((Tbl_Lab_Requests.PCode)= [Forms]![Laboratory]![id]));"

DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET Tbl_Lab_Requests.R_External_lab = ""المختبر"" " & _
" WHERE (((Tbl_Lab_Requests.PCode)= [Forms]![Laboratory]![id]));"

 

[Foksh]

السبب أن الاستعلام يستخدم القيمة من النموذج الرئيسي ([Forms]![Laboratory]![id]) ، بينما السجلات التي تريد تحديثها موجودة في النموذج الفرعي المستمر ، أي أن هناك عدة سجلات بنفس PCode ، لكن التحديث يستهدف سجلًا واحداً فقط .

ويجب أن تأخذ قيمة المفتاح (PCode) من السجل الحالي في النموذج الفرعي ، وليس من النموذج الرئيسي .

 

لذا جرب هذا التعديل ، رغم انك تعلم جيداً ضرورة ارفاق ملف في معظم الطلبات والاستفسارات..

DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET R_External_lab = 'المختبر' " & _
"WHERE PCode = " & Forms!Frm_Main!Frm_Sub.Form!PCode & ";"

فقط تأكد من اسم نموذج الفرعي والرئيسي اخي الكريم ..

[jo_2010]

منذ ساعه, Foksh said:

السبب أن الاستعلام يستخدم القيمة من النموذج الرئيسي ([Forms]![Laboratory]![id]) ، بينما السجلات التي تريد تحديثها موجودة في النموذج الفرعي المستمر ، أي أن هناك عدة سجلات بنفس PCode ، لكن التحديث يستهدف سجلًا واحداً فقط .

ويجب أن تأخذ قيمة المفتاح (PCode) من السجل الحالي في النموذج الفرعي ، وليس من النموذج الرئيسي .

 

لذا جرب هذا التعديل ، رغم انك تعلم جيداً ضرورة ارفاق ملف في معظم الطلبات والاستفسارات..

DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET R_External_lab = 'المختبر' " & _
"WHERE PCode = " & Forms!Frm_Main!Frm_Sub.Form!PCode & ";"

فقط تأكد من اسم نموذج الفرعي والرئيسي اخي الكريم ..

استاذى الفاضل  إليك قاعدة مصغرة للتعديل عليها

JO_Lab.rar

[Foksh]

أخي جو ، اعذرني على مداخلتي ، ولكن الصورة غير واضحة ، وكأنها كانت مجرد رفع عتب أنك قمت بالتوضيح بشكل غير واضح !!!

ثانياً ، PCode = 40 في الجدول Tbl_Lab_All ، يمثل السجل "هاجر عشرى على" على سبيل المثال . فكيف تريد تحديث القيمة لباقي السجلات , ولكن تبين لي أن الرابط فيما بينهم هو حقل التاريخ إن لم أكن مخطئاً ، صحيح ؟

وعليه فبعد تتبع تنسيق التاريخ في الجدول Tbl_Lab_Requests في الحقل Date_R ، كان التاريخ بالتنسيق "2025-01-12" بينما في النموذج في مربع النص DDate = 12,January,2025 ، أي أن التنسيق مختلف في حال قمنا بتحديد التاريخ كشرط للسجلات التي تتبع نفس التاريخ للتحديث .

 

انظر ماذا تستطيع فعله لتلافي هذه المشكلة في تصميمك لمشروعك .

 

[jo_2010]

11 دقائق مضت, Foksh said:

أخي جو ، اعذرني على مداخلتي ، ولكن الصورة غير واضحة ، وكأنها كانت مجرد رفع عتب أنك قمت بالتوضيح بشكل غير واضح !!!

ثانياً ، PCode = 40 في الجدول Tbl_Lab_All ، يمثل السجل "هاجر عشرى على" على سبيل المثال . فكيف تريد تحديث القيمة لباقي السجلات , ولكن تبين لي أن الرابط فيما بينهم هو حقل التاريخ إن لم أكن مخطئاً ، صحيح ؟

وعليه فبعد تتبع تنسيق التاريخ في الجدول Tbl_Lab_Requests في الحقل Date_R ، كان التاريخ بالتنسيق "2025-01-12" بينما في النموذج في مربع النص DDate = 12,January,2025 ، أي أن التنسيق مختلف في حال قمنا بتحديد التاريخ كشرط للسجلات التي تتبع نفس التاريخ للتحديث .

 

انظر ماذا تستطيع فعله لتلافي هذه المشكلة في تصميمك لمشروعك .

 

استاذى الفاضل كل مااريدة هو عند تحديد اى سجل من النموذج الفرعى يظهر رقم الكود الخاص بالسجل فى مريع نص I'd فى الرئيسى اريد تحديث هذا السجل فقط وليس كل السجلات

كما بالصورة فى النموذج الرئيسى انا واقف علي سجل رقم ٤٠

ومن النموذج الفرعى حددت رقم ٣٨ ظهر رقم ٣٨ فى النموذج الرئيسي اريد تحديث هذا السجل فقط بإضافة  بكلمة المختبر لحقلexternal_lab عند الضغط علي الزر الأحمر او بكلمة البرج عند الضغط علي الزر الأصفر اتمنى بكون طلبى واضح 

بالنسبة لاختلاف تنسيق التقرير لا توجد مشكلة اعمل علي هذا البرنامج من ٥ سنوات

تم تعديل منذ 33 دقائق بواسطه jo_2010

[Foksh]

أخي جو الخطأ منك ، حيث في استعلامك يتم تحديث حقل مختلف في جدول مختلف عن الحقل الموجود في الاستعلام مصدر النموذج الفرعي

انظر التعديل الصحيح :-

DoCmd.RunSQL "UPDATE Tbl_Lab_All SET Tbl_Lab_All.External_lab = 'المختبر'" & _
" WHERE PCode = " & Me.ID & ";"