مساعد في اضافة كلمة Select All

[goldposition]

المطلوب في المرفق اول ما افتح النموذج كل الكومبوبوكس يكون فيها كلمة  

Select All

وتكون ظاهرة ولو اختارت غيرها يفضل البحث زي ما هو واذا اختارت

Select All  

يعملي بحث على الكل 

mm.rar

تم تعديل نوفمبر 24, 2020 بواسطه goldposition

[ناقل]

اكتب في القيمة الافتراضية للكمبو 

"<select ALL >"

 

[goldposition]

للاسف مش هتنفع علشان لو عملتها هتتعمل في اول كومبو ولو اختارتها مش هتعمل فلتره للكل

[أبوبسمله]

السلام عليكم

مشاركه مع اخى @ناقل جزاه الله خيرا

هل هذا ما تريد جرب ووافنا بالنتيجه

If Me.Combo1 Like "<select ALL >" Then
    Me.data.Form.RecordSource = "SELECT data1.* FROM data1;"
Else
    Me.data.Form.RecordSource = "SELECT data1.* FROM Data1 " & _
    " WHERE (((data1.LINE)=[Forms]![Search]![Combo1]));"
End If

بالتوفيق

mm.accdb

[goldposition]

شكرا على الاهتمام بس للاسف بعد اختيار في كومبو 1 انا كنت عامل فلتر لكومبو2 وهكذا في الباقي هو كومبو1 تمام مظبوط بس محتاج لو اختارت

select all

في كومبو 1 يعمل فلتر في كومبو 2 ويجيبلي الكل ولو اختارت اي رقم في كومبو1 يعمل فلتر في كومبو 2 زي ما انا عامل في المرفق الاخير بس مع اضافة كلمة

select all 

في كومبو 2 وهكذا في باقي القوائم المنسدله اللي موجوده 

mm.rar

[أبوبسمله]

السلام عليكم

اتفضل اخى @goldposition ان شاء الله يكون ما تريد جرب ووافنا بالنتيجه

بالتوفيق

 

mm - Copy.accdb

[goldposition]

شكرا جزيلا تمام هو ده المطلوب

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

بالتوفيق