تصفية نموذج فرعي بأي طريقة

morad2012 كتب:

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

كيف حالكم ،،، عساكم بخير وصحة جيدة ،،،

بداية لمن يساعد أم لا دعوة بظهر غيب ،،، الله بارك في أعمالكم الطيبة ،،، اللهم آمين

وبعد ،،،

فضلاً لا أمراً ...

في المرفق نموذج فرعي ،،،

المطلوب عمل زر أمر يقوم بتصفية النموذج الفرعي باستثناء (4،5،6،،8،10،11،12) منــــه ... وزر اخر يوقف الفلترة لنفس النموذج الفرعي بارجاع الارقام التي استثناها ...

أتمنى على الله أن لا يطول انتظاري للضرورة ،،، لاني حاولت ولم افلح ...

اخوكم مرااد

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

الأخ الكريم

تفضل المطلوب

أتنمي أن يكون تحقق المطلوب

Filter_M.rar

azouzeg كتب:

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

الأخ الكريم

تفضل المطلوب

أتنمي أن يكون تحقق المطلوب

اخي الكريم عزوز اطال الله عمرك ورزقك من الطيبات حتى ترضى

اشكر لك جهدك ولكن ،،، ليس هذا ما طلبت ،،،

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

مرة اخرى شكرا على جهودك وفي انتظار الحل ،،،

morad2012 كتب:

اخي الكريم عزوز اطال الله عمرك ورزقك من الطيبات حتى ترضى

اشكر لك جهدك ولكن ،،، ليس هذا ما طلبت ،،،

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

مرة اخرى شكرا على جهودك وفي انتظار الحل ،،،

اخري الكريم اليك الملف بعد التعديل حسب طلبك ويا رب اكون اصبت في تحقيقه

Filter_M.rar

تفضلFilter_m.rar

كود التصفية الزر الأول

Private Sub ts_Click()
Dim myfilter As String
myfilter = "[sa_n]<> 4 and [sa_n]<> 5 and [sa_n]<> 6 and[sa_n]<> 8 and[sa_n]<> 10 and [sa_n]<> 11 and [sa_n]<> 12"
Me.frmFilter.Form.Filter = myfilter
Me.frmFilter.Form.FilterOn = True
End Sub

كود إلغاء التصفية

Private Sub أمر34_Click()
Me.frmFilter.Form.FilterOn = False

End Sub

mohmd_3li كتب:

اخري الكريم اليك الملف بعد التعديل حسب طلبك ويا رب اكون اصبت في تحقيقه

بارك الله فيك اخي الكريم ،،، وزادك علماً واحسن خلقك

عند الضغط على اي زر امر يظهر الخطأ التالي

مرفق صورة

واذا ما تم حل المشكلة فاعتقد انه هو المطلوب بإذن الله تعالى

اخي العزيز أبو لميس ،،، احسنت وابدعت

دعوت للجميع في المشاركة الاولى ،،، وها انا اتفرد بدعوتي لكـ ها هنا

اطال الله عمرك ورزقك الخلف الصالح وسدد خطاك على الحق ،،،

هو ما طلبت ،،،

ولك ايضا اخي محمد علي ،،، الف تحية احترام وتقدير على جهدك

الف تحية ،،،

وفقك الله

لا تسم نموذجا فرعيا باسم "filter"

لأنها من الكلمات المحجوزة

أبو لميس كتب:

وفقك الله

لا تسم نموذجا فرعيا باسم "filter"

لأنها من الكلمات المحجوزة

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

Filter_M.rar