set parameter value to a query by vba تمرير قيمة معلمة الى معيار داخل استعلام من خلال كود vba ☺

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

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

الشرح نظريا للطريقة الرمهانية وهو كالاتى

•  ننشئ الاستعلام كما نريد بالحقول التى نريد
• فى مكان المعيار للحقل المطلوب نكتب مثلا   >>---->   [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

[صالح حمادي]

بارك الله فيك أخي ابا جودي و في الأستاذ رمهان

[ابو ياسين المشولي]

بارك الله فيك وفي الاستاذ رمهان تسلم الايادي

[ابو جودي]

 

 

جزاكم الله خيرا 

تم اضافة طريقة ثانية الى المشاركة الاصلية باستخدام دالة   >>---->  TempVars   

 

 

[essam rabea]

ما شاء الله عليك أبا جودى

[ابو جودي]

شكرا لدعمكم المعنوى لى استاذى الجليل ومعلمى القدير 

[محمد القدسي]

سلمت يداك استاذي ابا جودي

طيب اذا جعلنا مصدر سجلات النموذج هو الاستعلام 

qryJudy 

فانه يطالب بالقيمة  [Insert value]

[محمد القدسي]

والمعذرة لاني لم افتح موضوع جديد يخص سؤالي واشكر استاذي ابا جودي لانه تكفل بذلك بدلا مني

 

[ابو جودي]

هات مرفقك لانى لم افهم ؟

[محمد القدسي]

هذا المرفق استاذيفتح النموذج بنافذة اخرى (1).rar

[ابو جودي]

المعيار فى الاستعلام يفرز البيانات بناء على قيمة حقل رقم النموذج

وفى هذا المرفق نأتى برقم النموذج من نموذج عملية انتاج 

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

لا يمكن ان نحصل على الكتكوت قبل البيضة

اخى الجيب لهذا المثال طبيعه خاصة بناء على تصميمه والذى تقدم بها صاحبه

كما ان اصلا فتح نفس النموذج عدة مرات شئ غريب  ولكن هذا طلب صاحب المثال

المرفق معقد وكذلك تصميمه لذلك تنفيذ المتطلبات عليه لها طابع يختص بذاك التصميم

لا اعرف اصلا لماذا تحاول تفنيد عمل غيرك والتعديل عليه الا ان كنتما شخص واحد 

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

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

[ابو ياسين المشولي]

نعم هذه انا استعملها في برنامجي وهي من خيرات الاستاذ رمهان

TempVars.Add "x",[رقم النموذج].Value
    DoCmd.SetWarnings False
        DoCmd.OpenQuery "qryJudy"
    DoCmd.SetWarnings True

 

[محمد القدسي]

اشكرك استاذي على تعاونك

اما قولك اخي واستاذي

لا اعرف اصلا لماذا تحاول تفنيد عمل غيرك والتعديل عليه الا ان كنتما شخص واحد

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

واذا انشئت عدة نماذج طالبني الاستعلام باسم النموذج

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

واما قولك 

ورجاء لا تستخدم اللغة العربية فى مسميات الجداول والحقول والكائنات داخل النماذج  فالمرفق الذي ارفقته انا ليس لي وانما مثال 

وفي الاخير اشكرك على تعاونك وخفة دمك استاذي فوالله لقد استفدت من هذا المنتدى في تعلم الاكسس مع ان مهنتي هو صيدلاني 

ولاكن لما لاقيته من تعاون اساتذتي وتواضعهم جعلني احب الاكسس وعلم البرمجة

وسلمت يداك استاذي 

 

[ابو جودي]

حلو قوى طيب وبتتعبنا فى شغل غيرك اللى لا انت ولا احنا فاهمينه ليه

هات مرفقكم اخى الكريم الله يرضى عليك

ولا تنسي توضح اسم النموذج اللى تريد تفتحه اكتر من مره 

 

[محمد القدسي]

هذا  المرفق وهو يعتبر مثال لما اريده والا قاعدة البيانات لدي كبيره

واريد عند حدث بعد التحديث لحقل typdepartment في النموذج startsasha ان يفتح لي نموذج searchalamel اكثر من مرة مع بقاء الاستعلام للنموذج الفرعي searchnamecust كمصدر للبيانات  كما هو بنفس المعايير للبحث

testmyforms.rar

[محمد القدسي]

up

[محمد القدسي]

Up

[ابو عارف]

في ٢‏/١٠‏/٢٠١٩ at 03:50, محمد القدسي said:

واريد عند حدث بعد التحديث لحقل typdepartment في النموذج startsasha ان يفتح لي نموذج searchalamel اكثر من مرة

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

[محمد القدسي]

حياك الله وبياك اخي واستاذي ابو عارف

طلبي من المرفق هو فتح عدة نماذج من نفس النموذج  searchalamel بدون ان يطالب الاستعلام باسم النموذج  searchalamel

كما في مشاركتي استاذي ابا جودي على هذا الرابط 

 

[محمد القدسي]

Up up