مشكله في دالة Concentrate items

[hosslom]

السلام عليكم اخوتي

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

عند عمل استعلام يحدث تكرار لاسم الاختبار ولا ينظر لمعيار الكود للمريض

هل من حل في الكود ؟

وشكرا جزيلا

test.rarFetching info...

[Barna]

استبدل الفانك لديك بهذا .....

Public Function Concatenate_test_items(C As String) As String

    Dim rst As DAO.Recordset
    Dim myWhere As String
    
    'do the Where Criteria in an easy way, item by item
     myWhere = myWhere & "[tube]='" & C & "' AND [code]='" & 1000 & "'"
    
    '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
    
    '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
    
End Function

 

[hosslom]

  في 21‏/9‏/2021 at 20:54, Barna said:

Public Function Concatenate_test_items(C As String) As String

    Dim rst As DAO.Recordset
    Dim myWhere As String
    
    'do the Where Criteria in an easy way, item by item
     myWhere = myWhere & "[tube]='" & C & "' AND [code]='" & 1000 & "'"
    
    '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
    
    '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
    
End Function

Expand  

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

للاسف الكود لايعطي المطلوب ؟؟

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

[Barna]

  في 21‏/9‏/2021 at 21:10, hosslom said:

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

للاسف الكود لايعطي المطلوب ؟؟

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

Expand  

ماهو المطلوب اليس هذا هو المطلوب .......

 

[hosslom]

  في 21‏/9‏/2021 at 21:14, Barna said:

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

للاسف الكود لايعطي المطلوب ؟؟

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

Expand  

نعم هذا هو المطلوب ولكن لايعطيني النتيجة المطلوبه لا ادري لماذا

[Barna]

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟

 

تفضل .......

 

test (1).rarFetching info...

[hosslom]

  في 21‏/9‏/2021 at 21:17, Barna said:

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟

Expand  

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

ظبطت معي

جزاك الله كل خير وجعله الله في ميزان حسناتك أخي الكريم

شكرا جزيلا

[hosslom]

  في 21‏/9‏/2021 at 21:30, hosslom said:

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟

Expand  

اخي الكريم اسف علي الازعاج 

ولكن عند تضمين المثال في القاعده عندي لتطبيقها يعطيني خطأ عند معاينه التقرير 😪😪

أرفقت القاعده جزاك الله كل خير

test2.accdbFetching info...