مشكلة لا استطيع ترك احد الحقول فارغ في النموذج

[اميرة الورد]

مرحبا  لدي قاعدة بيانات تحوي ثلاثة جداول ونموذج واحد وفي النموذج حقل (mn_n)  عندما اتركة فارغ واضغط على زر الحفظ تظهر لي الرسالة كما في الصورة  وانا احتاج ان اتركة في بعض الاحيان فارغ ارجو منكم المساعدة 

a.accdb

[ابو جودي]

جربي كده

 

a.accdb

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

بس لان ما اعرف سير البرنامج لا اعرف هل سيكون لها تأثير على معالجة البيانات فيما بعد ام لا

[اميرة الورد]

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

[ابو جودي]

حاضر دقيقه ارجع للمرفق بس اظبط المشكلة 

ممكن تجربى الاول المرفق وبعدين ان شاء الله ان كان تمام اشرح لك كل شئ تفصيلا

بس تتأكدى ان كل شئ تمام 

a (1).accdb

[اميرة الورد]

شكرا كل شئ تمام  اتعبتك معي استاذ @ابا جودى لطفا الشرح وانا خجلانة منك استاذ اتعبتك معي  

[ابو جودي]

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

والان وقت الشرح ولكن اولا  ابدأ بسؤال على الهامش حتى احدد كيف اتناول الشرح

هل انت من قمتى بالتصميم لهذا المرفق ؟!

[اميرة الورد]

نعم استاذ @ابا جودى انا من قمت بتصميمة

[ابو جودي]

تمام

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

 

[اميرة الورد]

@ابا جودى استاذ  تقصد مصدر السجلات للنموذج

تم تعديل يونيو 7, 2019 بواسطه اميرة الورد

[ابو جودي]

وكان هذا الربط بين الجدولين بهذه العلاقة بين الحقلين قبل التعديل 

 

 

وهذا التعديل الذى قمت به 

[ابو جودي]

طبعا كانت المشكلة والتى سببها ظهور الرسالة ان الحقل كان مستخدم فى الربط فكان لابد من كتابة قيم به 

ولاننى قمت بالغاء العلاقة وقمت بالربط بين الجدولين من خلال المفتاح الاساسى للجدول 

تم حل هذه المشكلة 

نأتى للجزئية الثانية

انظرى الى النموذج فى وضع التصميم

ومصدر بيانات الحقل   mn_n

هذه الصور قبل التعديل 

قمت باضافة mn_c اليه فى الاستعلام الخاص به

وهذه الصورة بعد التعديل

تم تعديل يونيو 7, 2019 بواسطه ابا جودى

[ابو جودي]

ثم بعد ذلك كتبت هذا الكود فى حدث بعد التحديث

Private Sub mn_n_AfterUpdate()
mn_c = mn_n.Column(2)
End Sub

 

[اميرة الورد]

ستاذ @ابا جودى  اتمنى ان تعذرني لاني لم اعلق على الشرح الرائع بسبب ضعف الانترنت لدنيا وانقطاع الاتصال واما شاكره لك ياستاذ @ابا جودى وبصراحة احتاج الى الوقت كي افهم الشرح وارجو  تتحملني في حال كانت هناك المزيد من الاسئلة 

تم تعديل يونيو 7, 2019 بواسطه اميرة الورد