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