انشاء استعلام والبحث فيه باكثر من معيار

[عمر ضاحى]

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

عندي نموذج ونموذج فرعي 

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

باستخدام المعيار 

Like "*" & [Forms]![frmSearchAllReqords]![txtSearch].[Text] & "*"

الان اريد ان اضيف مربع بحث اخر باسم txtSearch2  وهذا لكي اعمل فلتره اخرى على الفلتره السابقه 

مثلا فى المربع الاول txtSearch ابحث عن الاسم 

والمربع الثاني txtSearch2 ابحث فى التواريخ او رقم التلفون او اى شئ اخر 

جربت ان اضيف and واضع القيمتين لكن لم تنجح معي

هل فى طريقه اوفق بين المعيارين معا 

 

[د.كاف يار]

استخدم هذي الطريقة 

Dim varFilter As Variant: varFilter = Null
 
    If Not IsNull([Text1]) Then
        varFilter = (varFilter) & "[column1] LIKE '" & Text1 & "'"
    End If
    
    If Not IsNull([Text2]) Then
        varFilter = (varFilter + " AND ") & "[column2] LIKE '" & Text2 & "'"
    End If

    If Not IsNull([Text3]) Then
        varFilter = (varFilter + " AND ") & "[column3] LIKE '" & Text3 & "'"
    End If

Form.RecordSource = "SELECT * FROM [table_name] where" & varFilter

 

كذلك للبحث الجزئي

    If Not IsNull([Text1]) Then
        varFilter = (varFilter) & "[column1] LIKE '*" & Text1 & "*'"
    End If

 

[عمر ضاحى]

استاذي الكريم @د.كاف يار

اولا باشكر حضرتك شكرا جزيلا على رد حضرتك 

لكن انا كنت عاوز صيخه اضعها فى الاستعلام نفسه لانى شغال بالاستعلام دون اكود فقط معادلات 

فهل يمكن تطوير هذا المعادلة الى شئ اخر لاعطائى نفس النتيجه 

Like "*" & [Forms]![frmSearchAllReqords]![txtSearch].[Text] & "*"

تم تعديل فبراير 2, 2022 بواسطه عمر ضاحى

[Amr Ashraf]

2 ساعات مضت, عمر ضاحى said:

الان اريد ان اضيف مربع بحث اخر باسم txtSearch2  وهذا لكي اعمل فلتره اخرى على الفلتره السابقه 

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

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

بالتوفيق

[عمر ضاحى]

بعتذر على هذا ظنا منى ان الامر لا يحتاج لها 

فى المرفق اول ما يتم تشغيل القاعدة سيفتح معك الشاشة المطلوب برمجتها 

يوجد 2 بحث 

اريد اذا وضعت كلمة فى البحث الاول (ولنفترض رقم الموظف )

يظهر لى النتائج واذا وضعت كلمة او رقم فى البحث الاخر ولنفترض تاريخ او ملاحظه او اى شئ اخر 

يظهر لى باقى النتائج 

حضور وانصراف موظفين.rar

[Amr Ashraf]

2 ساعات مضت, عمر ضاحى said:

يظهر لى النتائج واذا وضعت كلمة او رقم فى البحث الاخر ولنفترض تاريخ او ملاحظه او اى شئ اخر 

يظهر لى باقى النتائج 

لو عاوز الحل الاحترافى يبقى حل الاستاذ @د.كاف يار

اما الحل البدائى شاهد الصورة واطلع على المرفق 😆

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

Me.SubFrm.SourceObject = "SubFrm"
Me.SubFrm.Requery

.. وعند البحث فى المربع الثانى يتم تعديل مصدر النموذج الفرعى ليصبح النموذج الفرعى الجديد ..

Me.SubFrm.SourceObject = "SubFrm2"
Me.SubFrm.Requery

افتح القاعدة وانت تفهم 😄

اعذرنى انا توهت فى قاعدتك فعملت قاعدة صغيرة توضحلك الفكرة اللى هتطبقها على قاعدتك . بالتوفيق

Query 2 Steps Amr.accdb

تم تعديل فبراير 2, 2022 بواسطه Amr Ashraf
توضيح اكثر

[عمر ضاحى]

32 دقائق مضت, Amr Ashraf said:

لو عاوز الحل الاحترافى يبقى حل الاستاذ @د.كاف يار

اما الحل البدائى شاهد الصورة واطلع على المرفق 😆

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

Me.SubFrm.SourceObject = "SubFrm"
Me.SubFrm.Requery

.. وعند البحث فى المربع الثانى يتم تعديل مصدر النموذج الفرعى ليصبح النموذج الفرعى الجديد ..

Me.SubFrm.SourceObject = "SubFrm2"
Me.SubFrm.Requery

افتح القاعدة وانت تفهم 😄

اعذرنى انا توهت فى قاعدتك فعملت قاعدة صغيرة توضحلك الفكرة اللى هتطبقها على قاعدتك . بالتوفيق

Query 2 Steps Amr.accdb 508 kB · 0 downloads

🤣 

والله فكرت فيها وانا ف الطريق للسكن

بس عمرك اطول من عمري وسبقتنى بها 

هجرب واشوف

الفكرتين

[د.كاف يار]

لديك خطأ في المعيار عدل الخطأ و سيعمل معك

Like "*" & [Forms]![frmSearchAllReqords]![txtSearch] & "*"

تم تعديل فبراير 2, 2022 بواسطه د.كاف يار

[عمر ضاحى]

2 ساعات مضت, Amr Ashraf said:

لو عاوز الحل الاحترافى يبقى حل الاستاذ @د.كاف يار

اما الحل البدائى شاهد الصورة واطلع على المرفق 😆

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

Me.SubFrm.SourceObject = "SubFrm"
Me.SubFrm.Requery

.. وعند البحث فى المربع الثانى يتم تعديل مصدر النموذج الفرعى ليصبح النموذج الفرعى الجديد ..

Me.SubFrm.SourceObject = "SubFrm2"
Me.SubFrm.Requery

افتح القاعدة وانت تفهم 😄

اعذرنى انا توهت فى قاعدتك فعملت قاعدة صغيرة توضحلك الفكرة اللى هتطبقها على قاعدتك . بالتوفيق

Query 2 Steps Amr.accdb 508 kB · 2 downloads

اولا باشكرك على تعبك

ثانيا ملفك شغال تمام 

لكن لما طبقت بقى يفلتر ولما اروح للبوكس الثاني يلغي الفلتره الاولى ويعيد الفلتره من اول وجديد 

مرفق ملف للمشكله 

13 دقائق مضت, د.كاف يار said:

لديك خطأ في المعيار عدل الخطأ و سيعمل معك

Like "*" & [Forms]![frmSearchAllReqords]![txtSearch]![Text] & "*"

لما غيرتها من . الى !  الفلتر لم يعمل جيدا

الفلتره باكثر من معيار.rar

[د.كاف يار]

تفضل ملفك

 

حضور وانصراف موظفين.zip

[عمر ضاحى]

منذ ساعه, د.كاف يار said:

تفضل ملفك

 

 

حضور وانصراف موظفين.zip 503.07 kB · 6 downloads

 

 

باشكرك استاذي @د.كاف يار

هذا هو