مشكلة عدم تطاببق نتائج البحث في النموذج الفرعي او التقرير

[qathi]

السلام عليكم
حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ
طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه

بعد عدة محاولات لكود بحث التالي:
 
وللعلم ياخذ الكود القيم من حقل قائمة منسدلة اسمة 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

 

 

تم تعديل أكتوبر 25 بواسطه qathi

[qathi]

للرفع ...

هل المطلوب واضح ام لا؟؟

إذا كان لا .. ارجو اخباري بذلك

 

تم تعديل أكتوبر 25 بواسطه qathi

[ابوخليل]

عليكم السلام

غير الترقيم في الجدول بدلا من 1 الى 14 .. اجعله يبدأ بـــ  11 الى 24  وسوف تنحل مشكلتك

مشكلتك في المعيار في الاستعلام   like "*"

[qathi]

5 ساعات مضت, ابوخليل said:

غير الترقيم في الجدول بدلا من 1 الى 14 .. اجعله يبدأ بـــ  11 الى 24  وسوف تنحل مشكلتك

أهلا باستاذي الغالي @ابوخليل

الأمر صعب جداء بسبب بناء السابق للنماذج والاكواد والاستعلامات والتقارير الكثيرة

 

5 ساعات مضت, ابوخليل said:

مشكلتك في المعيار في الاستعلام   like "*"

قمت بحذف هذا المعيار وجربت مراراً وتكراراً ونفس المشكلة

 

ارجو من يستطيع المساعدة في حل هذه المشكلة ؟؟

[Foksh]

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

 

مشاركة و إضافة لما تفضل به معلمي الجليل الأستاذ أبو خليل ، جرب حصر المعيار بعلامتي تنصيص ، كالآتي :-

 

If Not IsNull(Me.Mo) Then
varFilter = (varFilter + " AND ") & "[Mo] = " & Me.Mo
End If

جرب وأخبرنا بالنتيجة 😇

تم تعديل أكتوبر 26 بواسطه Foksh

[qathi]

دوما تبدع بحلولك استاذي واخي @Foksh

شكرا على ردك أستاذي الغالي

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

 

بارك الله فيك وجزاك الله عني خيرا