استعلام في التقرير بشكل افقي

[hosslom]

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

محتاج مساعده في القاعده المرفقه

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

ازاي اخليه يظهر في تقرير الباركود بشكل عرضي بفاصل كما في الصوره

مرفق قاعده مثال

test.accdb

[jjafferr]

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

 

الباركود فيه الرقم 11 فقط ، فرجاء شرح ما هو المطلوب ، وبالتفصيل 🙂

 

جعفر

[hosslom]

شكرا اخي العزيز الاستاذ جعفر

الصوره فقط مثال

  الباركود ليس الهدف رقم الكود 1000 فقط مثال

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

 اسفل الباركود هكذا

BHCG, Creatinin, FSH, Glucose, TSH, Urea

 

وليس راسي

BHCG

Creatinine

FSH

Glucose

TSH

ارجو ان تكون فكرتي وصلت حضرتك

وجزاك الله كل خير

test.accdb

[jjafferr]

تفضل 🙂

 

من استعلام المجاميع qry_rpt ننادي الدالة Concatenate_test_items التي تقوم بإرسال قيمة code ، ومنها تجمع النتائج test في سطر واحد

.

والنتيجة

.

ونستعمل هذا الاستعلام كمصدر بيانات التقرير.

 

وهذه هي دالة Concatenate_test_items :

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 & "[code]='" & C & "'"
    
    '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

 

جعفر

 

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

1377.test.accdb.zip

[hosslom]

ماشاء الله عليك اخي الكريم استاذ جعفر 😊

فعلا ده المطلوب حرفيا زادكم الله علما .

انا عاجز عن الشكر.  سلمت يداك وجعله الله في ميزان حسناتك

وكل الشكر لحضرتك على الاهتمام بالموضوع

ورزققكم الله الخير والسعاده امين يارب العالمين