والان وقت الشــــرح للتعديلات التى تمت على المرفق
1- الجدول NewLab تم التعديل لنوع الحقل فيه OK_JO من نصى الى Yes/No
2-تم حذف الاستعلام New_No لا نريدة الان فى شئ
3-فى النموذج New_P_Test حدث عند الفتح تم ازالة الجزء الخاص بإستدعاء الاستعلام الذى حذفنا منذ قليل
DoCmd.OpenQuery "new_no"
4-اضفنا الى النموذج الحقل OK_JO وقمنا باخفاءه انزر الى الصورة الاتية ولاحظ الارقام 1,2,3 على الصورة
- الرقم 1 هو هنصر تحكم الحقل OK_JO والذى قمنا باخفائه واسم العنصر هو ChckOk
- الرقم2 عنصر غير منضم اسمه txtOk ومصدر بيااناته كالاتى =ChrW(10003) علامة الصح بالترميز UNICODE وتنسيق الخط له هو Arial
- الرقم 3 زر امر مخفى باسم cmdOK
5- على زر الامر المخفى وضعنا الكود الاتى
Me.ChckOk = Not Me.ChckOk
DoCmd.Requery
Form_frm_P.ListNo.Requery
-السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس
-السطر التالى للتحديث بعد تغيير القيمة
-السطر الثالث لتحديث بيانات نموذج فرعى اسم الهنصر الداله عليه هو ListOk والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p
سنتحدث عن ذلك لاحقا بالتفصيل
ودخلنا الى مصدر بيانات النموذج
ولاحظ المعايير التى تم استخدامها
6-قمنا بنسخ هذا النموذج مع تغيير اسمه الى New_P_checked وقمنا بتعديل المعيار على الحقل OK_JO
وقمنا بتعديل الكود على زر الأمر ليكون
Me.ChckOk = Not Me.ChckOk
DoCmd.Requery
Form_frm_P.ListNo.Requery
-السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس
-السطر التالى للتحديث بعد تغيير القيمة
-السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p
سنتحدث عن ذلك لاحقا بالتفصيل
قأصبح النموذج الاول New_P_Test يعرض فقط الحقول التى لا تساوى yes
والنموذج الثانى New_P_checked يعرض فقط الحقول التى لا تساوى no
قمنا بعمل نموذج بأسم frm_P غير منضم لا مصر بيانات له ولكن قمنا بأدراج مربعين نص
- مربع النص الاول بإسم dDate ومصدر بياناته
=[Forms]![New_Project]![dDate]
- مربع النص الثانى بإسم txtTCode ومصدر بياناته
=[Forms]![New_Project]![txtTCode]
وذلك لنحصل على كل من قيم التاريخ والكود من النموذج الرئيسى هنا
قمنا بإدارج النموذجين New_P_Test , New_P_checked ليكونا نموذجين فرعين على هذا النموذج
قمنا بتغيير اسم النموذج الفرعى New_P_Test من داخل التصميم ليكون اسمه ListNo
قمنا بتغيير اسم النموذج الفرعى New_P_checked من داخل التصميم ليكون اسمه ListOk
-السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p
الان اتضحت الصورة