salehej قام بنشر مايو 23, 2019 قام بنشر مايو 23, 2019 (معدل) السلام عليكم ورحمة الله لدي نموذج فيه قوائم منسدلة ومربع قائمة اريد ان يتم التصفية بناء على القوائم المنسدلة ومربع القائمة كل شي تم عملة بنجاج ما عدا مربع القائمة لم استطع ان اجعله يعمل بالشكل المطلوب وهو ان استطيع ان اختار منه عدة خيارات بنفس الوقت مرفق الملف وفيه التوضيح آتمنى أن اجد حل من الاخوة الافاضل وجزاكم الله خير تجريب.accdb تم تعديل مايو 23, 2019 بواسطه salehej المرفق
رمهان قام بنشر مايو 24, 2019 قام بنشر مايو 24, 2019 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-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/ بالتوفيق
salehej قام بنشر مايو 24, 2019 الكاتب قام بنشر مايو 24, 2019 نعم هذا هو المطلوب شكرا لك كثيراً ومن القلب اخي رمهان والشكر لبقية الاخوان اللذين حاولو مساعدتي جزاكم الله خير واحسن الله إليكم وشكر الله سعيكم 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 قام بنشر مايو 24, 2019 الكاتب قام بنشر مايو 24, 2019 (معدل) فيه مشكلة اخي رمهان وهي عندما ازيل كل الاختيارات من مربع القائمة يضهر خطاء 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-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/ بالتوفيق ايضا اريد زر يلغي كل الاختيارت من مربع القائمة بالكامل بدل ما اذهب ازيل واحد بعد الاخر تم تعديل مايو 24, 2019 بواسطه salehej
رمهان قام بنشر مايو 24, 2019 قام بنشر مايو 24, 2019 الكود الجديد للبحث 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 قام بنشر مايو 24, 2019 الكاتب قام بنشر مايو 24, 2019 (معدل) الكود الجديد تم عمله بنجاح لكن كود الغاء البحث لم يتم بالشكل المطلوب حيث اني وضعته تحت زر امر وعند تنفيذ الامر يتم الغاء تحديد الخيارات المختارة من مربع القائمة لكن تضل السجلات على حالها لا يتم الغائها 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 بالتوفيق تم تعديل مايو 24, 2019 بواسطه salehej
رمهان قام بنشر مايو 24, 2019 قام بنشر مايو 24, 2019 اضف الغاء الفلتره Me.filteron=false في نهاية كود الغاء التحديد اكتب من الموبايل والا كنت ارفقت الملف يالتوفسق
salehej قام بنشر مايو 24, 2019 الكاتب قام بنشر مايو 24, 2019 تم الامر شكرا لك يا اخي على صبرك وسعة بالك معي وسرعة ردك ومساعدتي وكثر الله خيرك ورزقك من واسع فضلة وبارك الله فيك
salehej قام بنشر مايو 24, 2019 الكاتب قام بنشر مايو 24, 2019 😬اخي رمهان فيه ملاحظة ارجو ان يتسع صدرك لكثرة طلباتي كل الامور تمام لكن عند تصفية البيانات في النموذج تكون سليمة لكن عند طباعتها في التقارير لا تجري التصفية على مربع القائمة مثل ما تجري على القوائم المنسدلة مع العلم انه في المعاير بالاستعلام موجود على مربع القائمة مثل ما هو موجود على بقية القوائم المنسدلة فلا ادري هل يجب تغييره بصيغة اخرى او لا مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرى ارجو ان تكون واضحة ملاحظتي وشكرا لك
salehej قام بنشر مايو 25, 2019 الكاتب قام بنشر مايو 25, 2019 حولت احد القوائم المنسدلة الاخرى إلى مربع قائمة فا اصبح لدي مربعي قائمة وعنما اختار من الاولى تجري على اكمل وجه وعندما اختار من الاولى والثانية مع بعض لا يوجد تنسيق فيما بينهم حيث ان الثانية تلغي خيار الاولى آمل حل هذي المشكلة وايضا توضيح لو اضفت مربع قائمة اخر بالمستقبل كيف ربطهم مع بعض مع حل المشكلة المشار لها في المشاركة السابقة الخاصة بالاستعلام والتقرير وشكراً لكم
salehej قام بنشر مايو 25, 2019 الكاتب قام بنشر مايو 25, 2019 اريد كود زر امر يحدد كل الخيارات في مربع القائمة
رمهان قام بنشر مايو 26, 2019 قام بنشر مايو 26, 2019 17 ساعات مضت, salehej said: اريد كود زر امر يحدد كل الخيارات في مربع القائمة For i = 0 To Me.مربع_تحرير_وسرد162.ListCount - 1 Me.مربع_تحرير_وسرد162.Selected(i) = True Next
salehej قام بنشر مايو 26, 2019 الكاتب قام بنشر مايو 26, 2019 On 5/25/2019 at 1:50 AM, salehej said: 😬اخي رمهان فيه ملاحظة ارجو ان يتسع صدرك لكثرة طلباتي كل الامور تمام لكن عند تصفية البيانات في النموذج تكون سليمة لكن عند طباعتها في التقارير لا تجري التصفية على مربع القائمة مثل ما تجري على القوائم المنسدلة مع العلم انه في المعاير بالاستعلام موجود على مربع القائمة مثل ما هو موجود على بقية القوائم المنسدلة فلا ادري هل يجب تغييره بصيغة اخرى او لا مرفق صورة للمعيار الموجود على الحقل مصدر مربع القائمة ومعيار احد القوائم النسدلة الاخرى ارجو ان تكون واضحة ملاحظتي وشكرا لك شكرا لك اخي رمهان لكن المهم عندي هو حل هذي النقطة مع نقطة ربط القوائم مع بعض لانه بدونهن لا يتم عمل البرنامج بشكل صحيح وشكرا لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.