اظهار true فقط فى التقرير

[User user]

السلام عليكم 
محتاج فى تقرير التجميع المرفق فى المثال  اظهار الاختبارات اللى امامها true  فقط 

هذا الكود للاستاذ @jjafferr

testbar.rar

تم تعديل نوفمبر 15, 2021 بواسطه User user

[jjafferr]

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

 

في الوحدة النمطية:

بدلا عن
    'do the Where Criteria in an easy way, item by item
    myWhere = myWhere & "[code]='" & C & "'"


استعمل
    'do the Where Criteria in an easy way, item by item
    myWhere = myWhere & "[code]='" & C & "'"
    myWhere = myWhere & " And "
    myWhere = myWhere & "[bar]=-1"

 

جعفر

[User user]

جزاك الله خيرا استاذنا الفاضل @jjafferr
من فضلك ممكن تعدلها على المثال المرفق 
وفقا للنموذج المستمر 

testbar.rar

تم تعديل نوفمبر 15, 2021 بواسطه User user

[jjafferr]

تفضل 🙂

 

اضفت بيانات زيادة في الجدول ، حتى نرى المجموعات بطريقة افضل :

.

الاستعلام والدالة كما كانوا سابقا:

.

Public Function Concatenate_test_items(C As String) As String
On Error GoTo err_Concatenate_test_items

    Dim rst As DAO.Recordset
    Dim myWhere As String
    
    'do the Where Criteria in an easy way, item by item
    myWhere = myWhere & "[code]='" & C & "'"
    myWhere = myWhere & " And "
    myWhere = myWhere & " [bar]=-1"
    
    'set the Data source
    Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere)
    
    'Loop through the Records
    Do Until rst.EOF
    
        'Concatenate the items
        Concatenate_test_items = Concatenate_test_items & ", " & rst!test
        
        'move to the next Record
        rst.MoveNext
    
    Loop
        
Exit_Concatenate_test_items:

    'Remove the initial ", ", thats why we start from the 3rd letter
    Concatenate_test_items = Mid(Concatenate_test_items, 3)

    'clean up memory
    rst.Close: Set rst = Nothing

    Exit Function
err_Concatenate_test_items:

    MsgBox Err.Number & vbCrLf & Err.Description
    Resume Exit_Concatenate_test_items
    
End Function

.

ونتيجة الاستعلام ، والنموذج المستمر والتقرير :

.

جعفر

1411.2.testbar.accdb.zip