تحديد أكثر من عنصر في مربع سرد وتحرير

[moho58]

السلام عليكم أخواني الكرام في هذا المنتدى الجميل

في هذا الموضوع قمت بحساب عدد الذكور والإناث حسب section انطلاقا لما تم اختياره من مربعات السرد والتحرير  x1  x2  x3

من  النمودج frm_tbl_Employees 

 

سؤالي أريد أن اختار  (تحديد) مجموعة من الخيارات من مربع السرد والتحرير  x4 تم اعرض التقرير فيقوم بحساب عدد الذكور والإناث  حسب section  وفق لما تم تحديده من مربع السرد والتحرير x4

الرجاء المساعدة وبارك الله فيكم وربي يجازيكم خير الجزاء

baseNN.accdb

[jjafferr]

وعليكم السلام 🙂

 

اسهل طريقة :

1. عمل نسخة من الاستعلام qry_Section_Gender_Count ، ولنسميه qry_Section_Gender_Count_2

2. في الاستعلام qry_Section_Gender_Count_2 ، نعمل تغيير في المعيار لكي نشير الى الحقل X4 في النموذج ،

3. نجعل الاستعلام qry_Section_Gender_Count_2 مصدر لبيانات التقرير 🙂

.

جعفر

1563.baseNN.accdb.zip

[moho58]

33 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

اسهل طريقة :

1. عمل نسخة من الاستعلام qry_Section_Gender_Count ، ولنسميه qry_Section_Gender_Count_2

2. في الاستعلام qry_Section_Gender_Count_2 ، نعمل تغيير في المعيار لكي نشير الى الحقل X4 في النموذج ،

3. نجعل الاستعلام qry_Section_Gender_Count_2 مصدر لبيانات التقرير 🙂

.

جعفر

1563.baseNN.accdb.zipFetching info...

مشكور أخي بارك الله فيك على الرد

ربما لم استطع ايصال الفكرة

أنا اريد اختار مثلا خيارين معا أو ثلاثة خيارات  معا مثلا  دفعة واحدة أقم باختيار  الاجتماعية و الاقتصادية معا وهو يعطيني الاحصاء

يعني اختيار متعدد

وشكرا أخي وربي يجازيك

 

[jjafferr]

عفوا ، بس على اي اساس يختار لك الاختيار الاخير ؟

انت عندك ، والاحصاء اصلا غير موجود !!

[moho58]

23 ساعات مضت, jjafferr said:

عفوا ، بس على اي اساس يختار لك الاختيار الاخير ؟

انت عندك ، والاحصاء اصلا غير موجود !!

السلام عليكم

مشكور أخي على هذا الرد

أنا اقصد بالاحصاء يعني الحساب فقط

 المقصود اختار مثلا الاجتماعية والاقتصادية دفعة واحدة  وهو يقوم بحساب عدد الذكور والإناث

يعني في مربع السرد والاختيار أختار عنصرين معا أو ثلاث عناصر  معا دفعة واحدة يعني أختار كما أشاء

 وفي التقرير يعرض حساب عدد الذكور والإناث الموجودين في الاختيارات التي اخترتها معا

وبارك الله فيك أخي

[jjafferr]

تفضل يا سيدي 🙂

 

النموذج والاستعلام هكذا :

.

وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر:

Private Sub cmd_Preview_Click()

    Dim varItem As Variant
    Dim myWhere As String
    
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
    For Each varItem In Me.lst_XX.ItemsSelected
        ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
    myWhere = Left(myWhere, Len(myWhere) - 2)
    'هذه الفقرة الاخيرة بتعطينا المواد التي تم اختيارها بهذا التنسيق:
    'الإقتصادية', 'الادارية', 'التربوية'
    
    DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in (" & myWhere & ")"
    'والامر النهائي يصبح هكذا:
    'DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in ('الإقتصادية', 'الادارية', 'التربوية')"
    
End Sub

.

والنتيجة:

 

جعفر

1563.baseNN.accdb.zip

[moho58]

23 ساعات مضت, jjafferr said:

تفضل يا سيدي 🙂

 

النموذج والاستعلام هكذا :

.

وزر "عرض التقرير" يحتوي على هذا الكود في حدث النقر:

Private Sub cmd_Preview_Click()

    Dim varItem As Variant
    Dim myWhere As String
    
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
    For Each varItem In Me.lst_XX.ItemsSelected
        ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
    myWhere = Left(myWhere, Len(myWhere) - 2)
    
    DoCmd.OpenReport "qry_Section_Gender_Count", acViewPreview, , "[Section] in (" & myWhere & ")"
    
End Sub

.

والنتيجة:

 

جعفر

1563.baseNN.accdb.zip 49 kB · 0 downloads

ممتاز ممتاز ممتاز أخي الكريم  هذا ما أبحث عنه بالتفصيل

ربي يجازيك وربي يفرحك اخي الكريم

كما ساعدتني أخي الكريم ربي يساعدك ويفتح لك أبواب الخير ان شاء الله

ألف شكر وتقدير

[jjafferr]

حياك الله 🙂

اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂

[moho58]

11 ساعات مضت, jjafferr said:

حياك الله 🙂

اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂

مشكور كثيرا اخي وبارك الله فيك