اذهب الي المحتوي
أوفيسنا

خيار متعدد من مربع قائمة في النموذج


salehej

الردود الموصى بها

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

لدي نموذج فيه قوائم منسدلة ومربع قائمة اريد ان يتم التصفية بناء على القوائم المنسدلة ومربع القائمة

كل شي تم عملة بنجاج ما عدا مربع القائمة لم استطع ان اجعله يعمل بالشكل المطلوب وهو ان استطيع ان اختار منه عدة خيارات بنفس الوقت 

مرفق الملف وفيه التوضيح

آتمنى أن اجد حل من الاخوة الافاضل وجزاكم الله خير 

 

تجريب.accdb

تم تعديل بواسطه salehej
المرفق
رابط هذا التعليق
شارك

20 ساعات مضت, salehej said:

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

لدي نموذج فيه قوائم منسدلة ومربع قائمة اريد ان يتم التصفية بناء على القوائم المنسدلة ومربع القائمة

كل شي تم عملة بنجاج ما عدا مربع القائمة لم استطع ان اجعله يعمل بالشكل المطلوب وهو ان استطيع ان اختار منه عدة خيارات بنفس الوقت 

مرفق الملف وفيه التوضيح

آتمنى أن اجد حل من الاخوة الافاضل وجزاكم الله خير 

 

تجريب.accdb 672 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

جرب بعد التحديث للقائمة

Private Sub مربع_تحرير_وسرد162_AfterUpdate()
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Left(xt, Len(xt) - 1)
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

واعتقد الموضوع مكرر هنا

https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/

بالتوفيق

رابط هذا التعليق
شارك

نعم هذا هو المطلوب شكرا لك كثيراً ومن القلب اخي رمهان والشكر لبقية الاخوان اللذين حاولو مساعدتي 

 

جزاكم الله خير واحسن الله إليكم وشكر  الله سعيكم

 

2 hours ago, رمهان said:

جرب بعد التحديث للقائمة


Private Sub مربع_تحرير_وسرد162_AfterUpdate()
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Left(xt, Len(xt) - 1)
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

واعتقد الموضوع مكرر هنا

https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/

بالتوفيق

 

رابط هذا التعليق
شارك

فيه مشكلة اخي رمهان وهي عندما ازيل كل الاختيارات من مربع القائمة يضهر خطاء

 

1941721429_.jpg.76eeab2fc3b9ab3dd2c8be1e4976efe4.jpg745731301_.png.c90a765e92cdc382e5a6bb8f8e0ec50a.png

2 hours ago, رمهان said:

جرب بعد التحديث للقائمة


Private Sub مربع_تحرير_وسرد162_AfterUpdate()
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Left(xt, Len(xt) - 1)
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

واعتقد الموضوع مكرر هنا

https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/

بالتوفيق

 

 ايضا اريد زر يلغي كل الاختيارت من مربع القائمة بالكامل بدل ما اذهب ازيل واحد بعد الاخر

تم تعديل بواسطه salehej
رابط هذا التعليق
شارك

الكود الجديد للبحث

Private Sub مربع_تحرير_وسرد162_AfterUpdate()
If Me.مربع_تحرير_وسرد162.ItemsSelected.Count = 0 Then Me.FilterOn = False: Exit Sub
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Nz(Left(xt, Len(xt) - 1), "")
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

كود الغاء التحديد واظهار الكل

For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
    Me.مربع_تحرير_وسرد162.Selected(xsel) = False
       Next

بالتوفيق

رابط هذا التعليق
شارك

الكود الجديد تم عمله بنجاح 

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

 

9 minutes ago, رمهان said:

الكود الجديد للبحث


Private Sub مربع_تحرير_وسرد162_AfterUpdate()
If Me.مربع_تحرير_وسرد162.ItemsSelected.Count = 0 Then Me.FilterOn = False: Exit Sub
For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "',"
Next
xt = Nz(Left(xt, Len(xt) - 1), "")
Me.Filter = "[stat]in(" & xt & ")"
Me.FilterOn = True
End Sub

كود الغاء التحديد واظهار الكل


For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected
    Me.مربع_تحرير_وسرد162.Selected(xsel) = False
       Next

بالتوفيق

 

تم تعديل بواسطه salehej
رابط هذا التعليق
شارك

اضف الغاء الفلتره 

Me.filteron=false

في نهاية كود الغاء التحديد

اكتب من الموبايل والا كنت ارفقت الملف

يالتوفسق

رابط هذا التعليق
شارك

 😬اخي رمهان فيه ملاحظة 

ارجو ان يتسع صدرك لكثرة طلباتي

كل الامور تمام لكن عند تصفية البيانات في النموذج تكون سليمة لكن عند طباعتها في التقارير لا تجري التصفية على مربع القائمة مثل ما تجري على القوائم المنسدلة 

مع العلم انه في المعاير بالاستعلام موجود على مربع القائمة  مثل ما هو موجود على بقية القوائم المنسدلة 

فلا ادري هل يجب تغييره بصيغة اخرى او لا 

مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرىIMG-20190525-WA0001.jpg.3a7d46392a9ba50ee39ad70229bfe6cf.jpg

ارجو ان تكون واضحة ملاحظتي وشكرا لك 

رابط هذا التعليق
شارك

حولت احد القوائم المنسدلة الاخرى إلى مربع قائمة فا اصبح لدي مربعي قائمة وعنما اختار من الاولى تجري على اكمل وجه وعندما اختار من الاولى والثانية مع بعض لا يوجد تنسيق فيما بينهم حيث ان الثانية تلغي خيار الاولى 

آمل حل هذي المشكلة وايضا توضيح لو اضفت مربع  قائمة اخر بالمستقبل كيف ربطهم مع بعض مع حل المشكلة المشار لها في المشاركة السابقة الخاصة بالاستعلام والتقرير 

 

وشكراً لكم

رابط هذا التعليق
شارك

17 ساعات مضت, salehej said:

اريد كود زر امر يحدد كل الخيارات في مربع القائمة 

For i = 0 To Me.مربع_تحرير_وسرد162.ListCount - 1
    Me.مربع_تحرير_وسرد162.Selected(i) = True
       Next

 

رابط هذا التعليق
شارك

On 5/25/2019 at 1:50 AM, salehej said:

 😬اخي رمهان فيه ملاحظة 

ارجو ان يتسع صدرك لكثرة طلباتي

كل الامور تمام لكن عند تصفية البيانات في النموذج تكون سليمة لكن عند طباعتها في التقارير لا تجري التصفية على مربع القائمة مثل ما تجري على القوائم المنسدلة 

مع العلم انه في المعاير بالاستعلام موجود على مربع القائمة  مثل ما هو موجود على بقية القوائم المنسدلة 

فلا ادري هل يجب تغييره بصيغة اخرى او لا 

مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرىIMG-20190525-WA0001.jpg.3a7d46392a9ba50ee39ad70229bfe6cf.jpg

ارجو ان تكون واضحة ملاحظتي وشكرا لك 

شكرا لك اخي رمهان لكن المهم عندي هو حل هذي النقطة مع نقطة ربط القوائم مع بعض لانه بدونهن لا يتم عمل البرنامج بشكل صحيح

وشكرا لك

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information