اظهار سجلات التصفية

[فؤاد الدلوي]

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

test.accdb

تم تعديل سبتمبر 10 بواسطه فؤاد الدلوي
اظافة

[ابوخليل]

اخوي فؤاد لا تزعل اذا قلت لك تصميمك ( كإدخال بيانات) في الجدول خطأ

حاول تبسيط الامور دائما .. خطوة واحدة بدلا من ثلاث خطوات

انظر التعديل

 

test2.rar

[فؤاد الدلوي]

@ابوخليل اسف يبدوا اني أخطأت في توصيل الفكرة. في حالة اختيار مقيم تظهر سجلات (نعم) لحقل المقيم فقط. في حالة اختيار لديه كفالة تظهر سجلات (نعم) لحقل لديه كفالة وهكذا.  اسف جداً . نعم سيدي منكم استفدت استفادة عظيمة في قاعدة البيانات التي اعمل عليها مع فائق الشكر والتقدير 

[ابوخليل]

هل افهم منك انك اعتمدت التعديل الذي رفعته لك ؟

اذا لا :

12 دقائق مضت, فؤاد الدلوي said:

@ابوخليل اسف يبدوا اني أخطأت في توصيل الفكرة. في حالة اختيار مقيم تظهر سجلات (نعم) لحقل المقيم فقط. في حالة اختيار لديه كفالة تظهر سجلات (نعم) لحقل لديه كفالة وهكذا. 

لماذا اكلف نفسي بتعبئة ثلاث حقول نعم او لا .. والمطلوب اصلا نعم لنوع الحالة ... لأن الحالة واحدة ولا يمكن ان يأخذ نعم في اكثر من واحدة

لذا الاولى والافضل اختيار الحالة من الحالات الثلاث ، وهذا انت ترى التعثر في التصفية من البداية ..

 

[فؤاد الدلوي]

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

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

[ابوخليل]

طيب على راحتك

نحن نتعلم .. لنتجاوز أخطاءنا .. ونطبق الطرق السليمة كي نطور انفسنا

كتابة الحقول بحروف عربية ستتعبك كثيرا ويصعب عليك التعلم ..

تفضل :

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

If Me.TXT = "مقيم" Then
Me.Form.Filter = "مقيم  like '" & "نعم" & "'"
Me.Form.FilterOn = True
ElseIf Me.TXT = "لديه كفيل" Then
Me.Form.Filter = "[لديه كفالة]  like '" & "نعم" & "'"
Me.Form.FilterOn = True
ElseIf Me.TXT = "لديه اقامة" Then
Me.Form.Filter = "[لديه اقامة]  like '" & "نعم" & "'"
Me.Form.FilterOn = True
End If

 

test4.rar