البحث والطباعة

شكرا اخت زهرة وهذا بالفعل ما اريد ولكن عند التطبيق لأسف لم تعمل الفلتره فأرجو منك اخبارى ما هو الشىء الناقص الذى لم افعله

لقد صنعت عدد 2 تكست بوكس

Text31

txtSearch2

وفى حدث lost focus الخاص ب text31

Me.Text31.SetFocus

========

ثم صنعت عدد 2 من الازرار

filter

show all

وفى حدث عند الضغط لزر فلتر

Dim vSearchString As String

Me.Text31.SetFocus

vSearchString = Me.Text31.Text

Me.txtSearch2.Value = vSearchString

Me.Requery

وفى حدث عند الضغط لزر show all

Me.Text31 = ""

Dim vSearchString As String

Me.Text31.SetFocus

vSearchString = Me.Text31.Text

Me.txtSearch2.Value = vSearchString

Me.Requery

============

وتم اضافة الاحداث الخاصة بالفورم نفسه

on current

Me.Text31.SetFocus

===

after update

Me.Text31.SetFocus

=====

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

مع العلم اننى لم اصنع الاستعلامات فمازلت على الاكواد ولم اضف اليها اى شىء وهى تعمل بشكل ممتاز

ولقد وجدت احد الاستعلامات التى صنعتيها اسمه QUM

CRITERIA

Like "*" & [FORMS]![search]![txtSearch2] & "*"

فهل هذه هى المشكلة التى لم اضيفها لكى تعمل الفلترة واذا كانت هى فكيف اضيفها عن طريق الاكواد مع انى لا اعتقد ان المشكله منها لاننى جربت حزفها من المثال ومازلت الفلترة تعمل بشكل جيد فأرجو اخبارى عن الشىء الناقص الذى لم افعله

اخي الفاضل

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

وستجد انني وضعت عند حدث كل تقرير تريد فتحه اسم الإستعلام الخاص به

لذا فضلا لا أمرا استخدم آخر مثال عدلته لك لأن النموذج اصبح الآن مرتبط بالإستعلامات الرئيسية لانه اصبح بها تعديلات كثيره خاصة بالفلترة مع مربع النص

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

بالتوفيق

تم تحويل الاكواد الى استعلامات وتم العمل بكفاءة

والله لا اعرف كيف اعطيكى حقك اخت زهرة

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

شكرا جزيلا اختى الكريمه