تصفية السجلات تعمل دوما، وأريدها عند الأمر فقط:)

[مسلم_1]

السلام عليكم

 

حاولت البحث عن حل المشكلة ولم أفلح 😊

المشكلة كما في المرفق كالتالي:

في نموذج absentfrm

تصفية السجلات مستمرة، وأريد أن تكون التصفية فقط عند البحث، وحين لا بحث تظهر كل السجلات.

 

 

كذلك هي في نموذجsalarystatementfrm

فعند النقر على زر الطباعة وقبل اختيار أي تصفية، يظهر التقرير مفلترا على آخر نتيجة بحث، والمطQry_test.rarلوب أن يطبع دون تصفية، لتكون التصفية عند الطلب فقط

[عمر ضاحى]

 

ممكن تضوح  اكثر طلبك بالظبط لانى مش فاهم بالظبط حضرتك ايه ال انت عاوزه

تم تعديل سبتمبر 1, 2021 بواسطه عمر ضاحى

[مسلم_1]

43 minutes ago, عمر ضاحى said:

 

ممكن تضوح  اكثر طلبك بالظبط لانى مش فاهم بالظبط حضرتك ايه ال انت عاوزه

الاستعلام يعمل طبيعي عند النقر على زر البحث بالتاريخ أو بين تاريخين، وعند فتح النموذج.

والمطلوب تعطيل الاستعلام عند فتح النموذج، وجعله فقط عند البحث

[د.كاف يار]

1 ساعه مضت, مسلم_1 said:

الاستعلام يعمل طبيعي عند النقر على زر البحث بالتاريخ أو بين تاريخين، وعند فتح النموذج.

والمطلوب تعطيل الاستعلام عند فتح النموذج، وجعله فقط عند البحث

اتفضل استخدم التالي

ضع الكود في حدث عند فتح النموذج

   With Me.Absentsubform.Form
     .DataEntry = True
     .Filter = ""
     .FilterOn = False
     .Requery
   End With

 

4 ساعات مضت, مسلم_1 said:

فعند النقر على زر الطباعة وقبل اختيار أي تصفية، يظهر التقرير مفلترا على آخر نتيجة بحث، والمطQry_test.rarلوب أن يطبع دون تصفية، لتكون التصفية عند الطلب فقط

استخدم نفس الكود الموجود في ازرار البحث في النموذج 

 

[مسلم_1]

1 hour ago, د.كاف يار said:

اتفضل استخدم التالي

ضع الكود في حدث عند فتح النموذج

   With Me.Absentsubform.Form
     .DataEntry = True
     .Filter = ""
     .FilterOn = False
     .Requery
   End With

 

استخدم نفس الكود الموجود في ازرار البحث في النموذج 

 

شكرا ، شكر الله لك وجزاك الله خيرا🌷

[مسلم_1]

الحقيقية د.كاف يار تم التطبيق تماما ولا أدري أين الخلل بالضبط

[د.كاف يار]

تفضل التعديل

 

Qry_test.zip

[مسلم_1]

3 hours ago, د.كاف يار said:

تفضل التعديل

 

Qry_test.zip 69.99 kB · 2 downloads

أسعدك الرحمن د.كاف يار

سؤال أخير ولو أثقلت عليك.

 

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

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

With Me.Form
     .Filter = ""
     .FilterOn = False
     .Requery
   End With

 

 

[د.كاف يار]

14 دقائق مضت, مسلم_1 said:

أسعدك الرحمن د.كاف يار

سؤال أخير ولو أثقلت عليك.

 

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

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

With Me.Form
     .Filter = ""
     .FilterOn = False
     .Requery
   End With

 

 

بسبب المعيار الموجود في الاستعلام المرتبط بالتقرير

انا لغيت المعيار في الاستعلام في النموذج

و جعلت الفلتر بالكامل بالكود

طبق نفس الكود على التقرير

[مسلم_1]

2 hours ago, د.كاف يار said:

بسبب المعيار الموجود في الاستعلام المرتبط بالتقرير

انا لغيت المعيار في الاستعلام في النموذج

و جعلت الفلتر بالكامل بالكود

طبق نفس الكود على التقرير

بارك. الله فيك دكتور، والله إني لخجل منك، ولا أدري أين الخلل!

حذفت المعيار

، وضعت الكود ولم يعمل

[Eng.Qassim]

3 hours ago, مسلم_1 said:

بارك. الله فيك دكتور، والله إني لخجل منك، ولا أدري أين الخلل!

حذفت المعيار

، وضعت الكود ولم يعمل

اجعل مصدر السجلات  Salarytbl  وليس SalarystatementQry

في زر طباعة التقرير .. اجعل شرط اذا كانت كل حقول البحث فارغة فسيكون مصدر سجلات التقرير هو جملة سكوال اختيار الكل من جدول Salarytbl  وبعكسه يتم تنفيذ الكود الموجود في زر الطباعة ( اعني اذا كان احد الحقول ليس فارغا )

بصراحة لم اجربه .. لان لدي مشكلة في الحاسبة .. والانفلونزا

[مسلم_1]

11 minutes ago, Eng.Qassim said:

اجعل مصدر السجلات  Salarytbl  وليس SalarystatementQry

 

في زر طباعة التقرير .. اجعل شرط اذا كانت كل حقول البحث فارغة فسيكون مصدر سجلات التقرير هو جملة سكوال اختيار الكل من جدول Salarytbl  وبعكسه يتم تنفيذ الكود الموجود في زر الطباعة ( اعني اذا كان احد الحقول ليس فارغا )

 

بصراحة لم اجربه .. لان لدي مشكلة في الحاسبة .. والانفلونزا

 

 شفاك الباري وعافاك، سأجرب ونسأل الله التيسير 🙂