مشكلة عرض الاسم المحدد من النموذج في تقرير

[AboSaad17]

السلام عليكم ورحمة الله وبركاته طاب صباحكم بكل خير
في المثال المرفق (يوجد في النموذج مربع قائمة بالاسماء  وعند تحديد الاسم  اللذي اريده يظهر كل الاسماء في التقرير
والمطلوب :

كيف يتم عرض الاسم المحدد أو الاسماء المحددة فقط في التقرير 
ولكم جزيل الشكر 

اسم في قائمة.rar

[ابوخليل]

تفضل

الحل : المعايير الموجودة في القائمة  جعلت نسخة منها في الاستعلام

اسم في قائمة2.mdb

[AboSaad17]

  السلام عليكم ورحمة الله
 صباح الخير استاذ   ابوخليل 

الحل السابق جزء من الحل 
المطلوب

انا أريد عندما اختار  اسم واحد من القائمة يظهر هو فقط في التقرير ........  وليس كل الاسماء 

 ولك جزيل الشكر 

[AlwaZeeR]

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

تفضل

فقط عدل امر المعاينة بما يلي

 DoCmd.OpenReport stDocName, acPreview, , "[numberp]=" & List2.Column(1)

 

اسم في قائمة.mdb

[AboSaad17]

  السلام عليكم ورحمة الله
 صباح الخير استاذ AlwaZeeR

نعم وصلت لجزء من الحل 
لكن المشكلة تبقى  .......  فعندما أريد أن أحدد أكثر من اسم لا يقبل إلا إسم واحد 
مع ملاحظة أن الاسم اللذي يعرض في التقرير هو اخر سم تم اختياره 

[حسين العربى]

بعد اذن اساتذتي الافاضل

 

اسم في قائمة.rar

[AboSaad17]

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

شكرا لك أخي الفاضل  حسين العربى

ولكن لا يبدوا هذا  الحل نهائي أكيد هناك الأفضل 
 ننتظر  الاساتذه الافاضل  ..... وأنا لا زلت أبحث في المنتديات 

  وأتمنى يكون الحل بدون إضافة خانة أختيار

 

[ابوخليل]

تفضل 

رجعت الى أمثلة محفوظة عندي قديمة  فوجدت لك هذه الطريقة لتنفيذ الفكرة ، لم يسجل صاحبها اسمه عليها

وقمت بالتعديل عليها بما يتوافق مع مثالك

Dim i As Integer
  Dim strWhere As String
    strWhere = " WHERE name1 IN ("
      With List2
        For i = 0 To .ListCount - 1
          If .Selected(i) Then strWhere = strWhere & """" & .Column(0, i) & """, "
            Next i
              End With
 If Len(strWhere) > 0 Then
   strWhere = Left(strWhere, Len(strWhere) - 2) & ")"
     Application.CurrentDb.QueryDefs("Query3").SQL = "SELECT * FROM Query2 " & strWhere
         End If

 

اسم في قائمة3.mdb

[AboSaad17]

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

الشكر لله ثم لك أستاذي الفاضل  ابوخليل 

نعم هذا هو المطلوب 

الشكر موصول للاستاذ الفاضل الوزير   AlwaZeeR

تم تعديل مايو 9, 2018 بواسطه AboSaad17
إضافة كلمة شكر

[AboSaad17]

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

أخي الفاضل  ابوخليل

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

بمعنى لو أخترت في المرة الاولى اسم    سعد   ثم غيرت من القائمة النادي والنشاط ووجدت اسم سعد ايضا سوف يظهر 

في التقرير اسم سعد اللذي تم اختياره في المرة الاولى 
ياليت تغير الكود ليتم بالرقم بدلا من الإسم 

 

strWhere = " WHERE name1 IN ("
      With List2

  حاولت استبدل حقل  Numberp بدلا من Name1

ولكن لم اوفق 

ولك  جزيل الشكر

[ابوخليل]

strWhere = " WHERE numberp IN ("
      With List2
        For i = 0 To .ListCount - 1
          If .Selected(i) Then strWhere = strWhere & .Column(0, i) & ", "
            Next i
              End With

 

اسم في قائمة4.mdb

[AboSaad17]

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

أخي الفاضل  ابوخليل

لك جزيل الشكر 

ماشاء الله لاقوة الا بالله 

نعم هذا هو الحل المثالي 
أكرر شكري الجزيل لك 

    

[ابوخليل]