استعلامات متعددة علي نموذج فرعي واحد

[jo_2010]

استاذتي الافاضل

بعد التحية

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

[أبوبسمله]

اتفضل تابع الموضوع ده وفيه مواضيع اخرى متعلقه

بشرح اخى واستاذى العزيز @jjafferr

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[jo_2010]

استاذ احمد

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

[kha9009lid]

جرب المرفق

كود بسيط

DoCmd.ApplyFilter , "[city]='" & [tx2] & "'"

 

بحث.accdb

[kha9009lid]

المثال السابق يبحث في نفس النموذج

واذا كنت تستخدم نموذج رئيسي ونموذج فرعي

Dim myfilter As String
myfilter = "[city]='" & [tx2] & "'"
Me.tbl1.Form.Filter = myfilter
Me.tbl1.Form.FilterOn = True

المثال مرفق

 

بحث2.accdb

[أبوبسمله]

جزاك الله خيرا أخى واستاذى الغالى خالد @kha9009lid

احسنت احسن الله اليك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

[jo_2010]

kha9009lid

شكراجزيلا

[kha9009lid]

العفو استاذي @jo_2010

واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر

فلا توجد مشكلة ممكن عملها

لكل زر امر نضع الكود التالي مع تغيير اسم المدينة

Dim myfilter As String
myfilter = "[city]='" & "الرياض" & "'"
Me.tbl1.Form.Filter = myfilter
Me.tbl1.Form.FilterOn = True

ولعرض الكل

Me.tbl1.Form.FilterOn = False

ولكن اعيد ان هذه الطريقة ليست عمليه

المثال في المرفق

بحث3.accdb

استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير

[أحمد يوسف]

أستاذ

jo_2010

 

أين الضغط على الإعجاب ؟!💙

[jo_2010]

الفاضل استاذى

kha9009lid

الذى افادنى كثيرا فى عملى ولازال شكرا خالص لشخصل الرائع وحلولك المتعدد شكرررررررررررررررررررررررررررررررررررا