hosslom قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 السلام عليكم اخوتي الكرام محتاج مساعده في القاعده المرفقه عباره عن استعلام لاظهار اسماء تحاليل مريض معين بكود معين ازاي اخليه يظهر في تقرير الباركود بشكل عرضي بفاصل كما في الصوره مرفق قاعده مثال test.accdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 وعليكم السلام 🙂 الباركود فيه الرقم 11 فقط ، فرجاء شرح ما هو المطلوب ، وبالتفصيل 🙂 جعفر رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر مايو 23, 2021 الكاتب مشاركة قام بنشر مايو 23, 2021 شكرا اخي العزيز الاستاذ جعفر الصوره فقط مثال الباركود ليس الهدف رقم الكود 1000 فقط مثال ولكن المطلوب ان يظهر الاستعلام في التقرير بشكل افقي بمعني ناتج الاستعلام يظهر اسماء التحاليل افقي وليس راسي كما في الصوره اسفل الباركود هكذا BHCG, Creatinin, FSH, Glucose, TSH, Urea وليس راسي BHCG Creatinine FSH Glucose TSH ارجو ان تكون فكرتي وصلت حضرتك وجزاك الله كل خير test.accdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 24, 2021 مشاركة قام بنشر مايو 24, 2021 تفضل 🙂 من استعلام المجاميع 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 2 رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 ماشاء الله عليك اخي الكريم استاذ جعفر 😊 فعلا ده المطلوب حرفيا زادكم الله علما . انا عاجز عن الشكر. سلمت يداك وجعله الله في ميزان حسناتك وكل الشكر لحضرتك على الاهتمام بالموضوع ورزققكم الله الخير والسعاده امين يارب العالمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان