اظهار السجلات الفارغة و غير الفارغة و الكل بواسطة مجموعة خيار

[ماجدجلال]

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

اخوني استاذتي الكرام 

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

و ذلك من اجل اظهار السجلات التالية :

1- له ملاحظات : ويتم اظهار السجلات التي تحتوي علي ملاحظات ( الحقول الغير فارغة ) .

2- ليس له ملاحظات : و يتم فيها اظهار الحقول التي لا تحتوي علي ملاحظات ( الحقول الفارغة ) .

3- الكل : ويتم فيها اظهار كل السجلات ( الفارغة و الغير الفارغة ) 

ارجو منكم المساعدة و لكم جزيل الشكر و الامتنان وجزاكم الله عنا كل خير ,,,,

 

الدورات.zip

[رمهان]

تفضل اخي ماجد

Private Sub إطار61_AfterUpdate()
Me.for18.Form.Filter = Choose(إطار61, "fid09 is not null", "fid09 is null", "")
Me.for18.Form.FilterOn = True
End Sub

بالتوفيق

تم تعديل يونيو 26, 2015 بواسطه رمهان

[ماجدجلال]

شكرا لك استاذ رمهان

الكود لوحدة يعمل بشكل صحيح !!!

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

فمثلا , عند النقر علي الخيار ( لة ملاحظات ) يعمل بشكل صحيح و بعدها اخترت ( الكل ) يعمل بشكل صحيح , ثم قمت بالبحث عن القاعة رقم 151 فان البحث لا يعمل,,,

فهل يمكن دمج الكود مع الاستعلام ليكون مصدرا واحد للنموذج 

وشكرا جزيلا لك 

[رمهان]

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

1. ضع هذا التعبير كعمود جديد في الاستعلام

Expr2: IIf([Forms]![for17]![إطار61]=1;[fid09] Is Not Null;IIf([Forms]![for17]![إطار61]=2;[fid09] Is Null;1=1))

ثم ضع  1-  كقيمة في معيار هذا العمود

 

2. الحدث التالي 

Private Sub إطار61_AfterUpdate()
Me.for18.Requery
End Sub

بالتوفيق

[ماجدجلال]

شكرا لك استاذ رمهان ,,

شكرا جزيلا .. لقد نجح الامر ,