اذهب الي المحتوي
salehej

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

Recommended Posts

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

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

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

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

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

 

تجريب.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 اعضاء متواجدين الان

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

×
×
  • اضف...