فتح استعلام به شروط من على النموذج .. دون فتح النموذج !!

[أحمد عمروف]

أساتذتنا الأفاضل
بعد التحية .. والسلام عليكم ورحمة الله وبركاته
لدي نموذج .. ولدي استعلام يفتح بشروط من على النموذج
هل من الممكن أن أفتح الاستعلام وعرض كل السجلات (دون أي تصفية أو شروط) بدون أن يكون النموذج مفتوحا .. وبدون رسالة خطأ ؟
حاولت وضع شرط في الاستعلام مفاده (إذا كان االنموذج مغلقا ... وإلا ...) ولكن لم أوفق في التنفيذ.
وكل التقدي والشكر لسيادتكم ؛؛؛

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي @أحمد عمروف 🙂 

جرب وضع هذا السطر في المعيار (مع مراعاة تغيير اسم النموذج واسم مربع النص كالتي عندك):

Like "*" & Nz(Forms![frm_Main]![Srch_Item] ; "*") & "*"

وإذا ما اشتغلت معاك ، انسخ الاستعلام وشيل المعيار من واحد منهم .. وبكذا يكون عندك استعلامين 🙂 

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

[أحمد عمروف]

سلمت أستاذنا الكبير .. وسلمت أفكارك القيمة

حاولت أجرب باستخدام NZ ولكن نفس رسالة الخطأ تظهر

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

وألف شكر وتقدير أستاذنا الكبير

 

[Ezril]

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

[أحمد عمروف]

شكرا جزيلا استاذنا

مرفق ملف المشكلة ..

عند فتح النموذح .. يمكن فتح الاستعلام بدون أي تصفية وأيضا مع وجود تصفية

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

Omar_2023.mdb

تم تعديل أبريل 29, 2023 بواسطه أحمد عمروف

[kkhalifa1960]

تفضل أخي واذا تحب بمثال وافني بالرد .

query criteria:
Like "*" & Nz(GetMyVar();"*") & "*"

Code in a standard moudule:

Public MyVar As Variant
Public Function GetMyVar()
GetMyVar = Myvar
End Function

code in any form:
MyVar = Me.textbox
'run query or open form/report

1- افتح موديول جديد وضع بة 

Public MyVar As Variant
Public Function GetMyVar()
GetMyVar = Myvar
End Function

2-عند  (comboBox) أو (TextBox) المراد أخذ الشرط منه ... بعد التحديث ضع الكود (MyVar = Me.textbox)

3-ضع هذا الشرط الأصفر فقط بدون الأقواس السوداء بالاستعلام  ( Like "*" & Nz(GetMyVar();"*") & "*" )
4- جرب بالشرط  خالي  وجرب بالشرط ممتلئ واغلق الفورم وشغل الاستعلام .

هاك مرفق شغال تمام التمام عندي ... 

اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل المرفق .

حركة القطارات في نمودج.accdb

تم تعديل أبريل 30, 2023 بواسطه kkhalifa1960

[أحمد عمروف]

سلمت يداك أستاذنا الكبير

ونفعت الطريقة 100 %

كل التقدير والشكر لسيادتكم

وجزاكم الله كل الخير .. ولا حرمنا الله من دعمكم المستمر

[kkhalifa1960]

1 ساعه مضت, أحمد عمروف said:

سلمت يداك أستاذنا الكبير

ونفعت الطريقة 100 %

كل التقدير والشكر لسيادتكم

وجزاكم الله كل الخير .. ولا حرمنا الله من دعمكم المستمر

حاضرين .