تقرير يعرض ما تم اختياره من listbox فقط

[طه محمد حامد]

اريد في المثال المرفق أن يعرض التقرير ما يتم اختياره عن طريق الماوس من القائمة list وليس أن يعرض كل النتائج أو نتائج البحث

علي سبيل المثال تم البحث عن (حمد)

فظهرت النتائج (محمد - احمد - حمد - حمدون - حمدان)

فقمت باختيار (احمد - محمد - حمد) عن طريق select بالماوس

اريد التقرير أن يعرض ما اخترته فقط أي (احمد - محمد - حمد) وليس (محمد - احمد - حمد - حمدون - حمدان)

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

report_by_selection.rar

[Dream_Works]

أرجو أن يكون هذا طلبك

تم إضافة الكود التالي

Private Sub أمر5_Click()
Dim Criteria As String, VarItem As Variant
 Dim stDocName As String
    
    With Me.List0
    ' Check if The user Selected Rows Or Not
    If .ItemsSelected.Count > 0 Then
    
  ' Making the Report Criteria
    Criteria = "[ID] In ("
    For Each VarItem In .ItemsSelected
    Criteria = Criteria + .ItemData(VarItem) + ","
    Next VarItem
    Criteria = Criteria + ")"
    End If
    End With

report_by_selection.zip

[طه محمد حامد]

نعم بالضبط هذا ما اريده ، وزادكم الله علماً

ولكن ياريت حضرتك تشرح لي الكود إن أمكن لإني مش عارف بعض الأوامر المكتوبة مثل :

Each VarItem In .ItemsSelected

"[iD] In ("

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

[Dream_Works]

For Each VarItem In .ItemsSelected

هذه عبارة عن بداية لجملة تكرارية loop ( و هي جملة أو أمر أو مجموعة أوامر يتكرر تنفيذها عدة مرات ) حسب عدد الصفوف التي اختارها المستخدم من ال ListBox

كل سجل اختاره المستخدم من القائمة المنسدلة يتخزن حقل فهرسته ( index) في الأكسيس في الخاصية ItemsSelected ... لذلك أنا أمر عليهم واحدا بعد الآخر في الجملة التكرارية ... إلى أن يتم الانتهاء منهم كلهم

"[iD] In ("

من العبارات الشرطية الموجودة في أكسيس مثل = , < , => و غيرها هي عبارة In

و يتم استخدامها مثلاً كالتالي

MyVariable in (1 , 2 , 3 )

تعني قيمة المتغير MyVariable إما = 1 أو 2 أو 3 ... بعبارة أخرى قيمة المتغير موجودة في ( لنقل كما يقولون في عالم الرياضيات مجموعة الحل ) ... { 1 , 2 , 3 }

كما يمكنك استخدام العبارة الشرطية Not in في حالة رغبتك في عرض جميع السجلات عدا الموجودة داخل مجموعة الحل { 1 , 2 , 3 }

يمكنك تجربة العبارة الشرطية في أي استعلام

بالتوفيق إن شاء الله