البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته اولا وللامانة وإحقاقا للحق وحتى يأخذ كل ذى حق حقه الفضل بعد رب العباد سبحانه وتعالى يعود الى استاذى الجليل ومعلمى القدير صاحب اللمسات الرمهانية والغالى على قلبى واخى الحبيب الاستاذ @رمهان والذى بت افتقده كثيرا وافتقد لمساته وانتظرها دائما بلهفة مشتاق الشرح نظريا للطريقة الرمهانية وهو كالاتى ننشئ الاستعلام كما نريد بالحقول التى نريد فى مكان المعيار للحقل المطلوب نكتب مثلا >>----> [Insert value] كما فى الصورة الاتيه يمكنكم تغيير المعيار [Insert value] مع مراعاة تغييره بالكود الذى سيأتى بعد قليل ونقوم باغلاق الاستعلام ونسميه على سبيل المثال >>----> qryJudy يمكنكم تغيير الاسم مع مراعاة تغييره بالكود الذى سيأتى بعد قليل نذهب الى النموذج الذى نريد فتح الاستعلام من خلاله ونريد تمرير قيمة المعيار من احد كائناته الى الاستعلام الذى انشأناه نقوم بعمل زر امر ونسند اليه الكود الاتى DoCmd.SetParameter "[Insert value]", [رقم النموذج] DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True نلاحظ فى السطر الاول من الكود DoCmd.SetParameter >>----> هذا الجزء من الكود هو الذى يختص بتعيين القيمة المعلمة والتى نريد تمريرها الى المعيار فى الاستعلام [Insert value] >>----> هذا اسم المعيار كما كتبناه فى الاستعلام تمام [رقم النموذج] >>----> هذا اسم الكائن على النموذج الذى نريد تمرير قيمته الى المعيار فى الاستعلام السطر الثانى من الكود DoCmd.SetWarnings False >>----> لايقاف رسائل الاكسس الافتراضية و التى تأتى لتأكيد تشغيل الاستعلام السطر الثالث من الكود DoCmd.OpenQuery "qryJudy" >>----> تشغيل الاستعلام ونكتب اسم الاستعلام كما انشئناه تماما السطر الرابع من الكود DoCmd.SetWarnings True >>----> ارجاع الوضع الافتراضى للاكسس بتشغيل رسائل الاستعلام مرة اخرى المثال المرفق هو بناء على طلب اخونا الحبيب الاستاذ @محمد القدسي الكود تم وضعه على زر امر بعنوان >>----> Run Query داخل نموذج باسم >>----> عملية انتاج طريقة أخرى ممكن استبدال المعيار داخل الاستعلام بالمعيار الاتى [TempVars]![x] وكذلك يتم استبدال الكود على زر الامر بالكود الاتى TempVars.Add "x",[رقم النموذج].Value DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True فتح النموذج بنافذة اخرى.accdb