qathi قام بنشر الجمعة at 19:35 مشاركة قام بنشر الجمعة at 19:35 (معدل) السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه بعد عدة محاولات لكود بحث التالي: وللعلم ياخذ الكود القيم من حقل قائمة منسدلة اسمة Mo في النموذج الرئاسي الحقل Mo عباره عن قائمة منسدلة قيم مصدر الصف له جدول - والجدول يحتوي على 14 سجل والسجلات مرقمة بالترتيب من 1 الى 14 بعد تجربة الكود عند تحديد اول سجل أو اول قيمة للحقل Mo والذي هو رقم واحد 1 فانة يفرز ويعرض في النموذج الفرعي او التقارير النتائج كل القيم والسجلات المتشابهة التي تحتوي على رقم واحد 1 هكذ 1 و 10 و11 و 12 و 13 و14 ولا يقوم بعرض القيم التي تحتوي رقم واحد فقط المطلوب كالتالي: جعل الكود لا يعرض الا القيم المحددة فقط مقال عند اختيار القيمة واحد 1 يعرض السجلات التي تحتوي على رقم واحد 1 فقط If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If مرفق الكود مع وضع مثاليين لحقلين ( حقل Mo - وحقل Sty ) والذين يعطون نفس النتائج الخاطئة Dim varFilter As Variant varFilter = Null If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If If Not IsNull(Me.Sty) Then varFilter = (varFilter + " AND ") & "[Sty] LIKE *" & Me.Sty & "*" End If With Me.Form2.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With تم تعديل الجمعة at 19:56 بواسطه qathi رابط هذا التعليق شارك More sharing options...
qathi قام بنشر الجمعة at 20:40 الكاتب مشاركة قام بنشر الجمعة at 20:40 (معدل) للرفع ... هل المطلوب واضح ام لا؟؟ إذا كان لا .. ارجو اخباري بذلك تم تعديل الجمعة at 20:40 بواسطه qathi رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر الجمعة at 21:45 مشاركة قام بنشر الجمعة at 21:45 عليكم السلام غير الترقيم في الجدول بدلا من 1 الى 14 .. اجعله يبدأ بـــ 11 الى 24 وسوف تنحل مشكلتك مشكلتك في المعيار في الاستعلام like "*" رابط هذا التعليق شارك More sharing options...
qathi قام بنشر السبت at 03:13 الكاتب مشاركة قام بنشر السبت at 03:13 5 ساعات مضت, ابوخليل said: غير الترقيم في الجدول بدلا من 1 الى 14 .. اجعله يبدأ بـــ 11 الى 24 وسوف تنحل مشكلتك أهلا باستاذي الغالي @ابوخليل الأمر صعب جداء بسبب بناء السابق للنماذج والاكواد والاستعلامات والتقارير الكثيرة 5 ساعات مضت, ابوخليل said: مشكلتك في المعيار في الاستعلام like "*" قمت بحذف هذا المعيار وجربت مراراً وتكراراً ونفس المشكلة ارجو من يستطيع المساعدة في حل هذه المشكلة ؟؟ رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر السبت at 05:04 أفضل إجابة مشاركة قام بنشر السبت at 05:04 (معدل) وعليكم السلام ورحمة الله وبركاته.. مشاركة و إضافة لما تفضل به معلمي الجليل الأستاذ أبو خليل ، جرب حصر المعيار بعلامتي تنصيص ، كالآتي :- If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = " & Me.Mo End If جرب وأخبرنا بالنتيجة 😇 تم تعديل السبت at 05:05 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
qathi قام بنشر السبت at 06:21 الكاتب مشاركة قام بنشر السبت at 06:21 دوما تبدع بحلولك استاذي واخي @Foksh شكرا على ردك أستاذي الغالي نعم بالفعل نجح تعديلك بالكود بارك الله فيك وجزاك الله عني خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان