عمر ضاحى

جربي وشوفى مثلا الغي احد التحليلين الخاص بتحليلSerum وشوفى هل هتعمل جيدا ام لا

احببت لكي الخير بان تتعلمي لكن بما ان الموضوع واخد اتجاه النسخ واللصق فاظن كده هتواجهه مشاكل لا حصر لها مستقبليا لان الاصل ان تعرفي كيف يعمل الكود علشان تقدري تطوريه وتطوعيه للغرض المخصص له الملاحظه فى التعديل البسيط انه مش هيظهر الحاله الفعليه لعملية الاختيار بل هيتجاهل اختياراتك فى النموذج ويظهر لكي التحاليل اتفضلى النتجيه كامله ان شاء الله strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] & " And [Code] = " & [Forms]![barcode_frm]![code] & " And [barcode_print] = True"

انا عارف وردي هذا حل لمشكلتك لكنه ليس حل كامل علشان تفكري وتكملى انتى هذا

انا كنت عارف ان هيحصل كده بس حبيت اسيب ليكي حاجه انتى تعمليها جربي تفهمي السطر ال عملته وتحاولى تعدلى فيه واذا لم تصلى لشئ بعدله ليكي

كما قلتها لك فى ردي السابق واترك الباقى للتأكيد او النفي لاساتذتى الكرام اها طيب ايه الغرض من كل ده

هل الكود يعمل تمام ؟

استبدلى السطر هذا strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "'" بهذا strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

مش فاهم يعنى ايه يشتغل على نفس ال ID ؟ غير كده هل الملف الذى ارسلته لك لم يعمل معكي ؟

مش فاهم يعنى ايه تفتح المحرك او تغلقه ؟ لكن غالبا لا يمكن والله اعلم غير عن طريق مكتبات وبرامج طرف ثالث خارج الاكسيس

هل هذا ما تريد ؟ PC_info.rar

اخي الكريم يوجد الكثير من البرنامج هنا ابحث واتعلم هذا اولا ثم ابدأ وجرب وثم اذا وقف معك شئ لا تتردد فى طرح سؤالك هنا وستجد الكثير من استذتى الكرام من يجيبك لكن كونك تطلب برنامج تريد احد ان ينفذه لك هناك قسم خاص بالطلبات المدفوعه ممكن تطرح طلبك هنا

ادخلى على استعلام الالحاق وعدلى الشروط

فلتر ايه؟

ده معناه انك لم تغلقي الصب زي مثلا end sub وممكن يكون معناه اظ فى اكثر من صب داخل بعض

اذا تم حل المشكلة اختاري افضل اجابه لغلق الموضوع

بسيطه جربي غيري السطر هذا DoCmd.OpenReport "Barcode", acViewReport فى زر الطباعة DoCmd.OpenReport "Barcode", acViewPreview او باى طريقه انتى حابها ^_^

هل هذا ما تريدين ؟ طبعا التعديلات كثيره اولا هذا الصب ما يقوم بالعمليات المهمه Sub SendDataTests() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim tubeDict As Object Dim tubeValue As Variant Dim testValue As String Dim idValue As Long Dim barcodePrintValue As Boolean Dim sendValue As Boolean Set db = CurrentDb Set tubeDict = CreateObject("Scripting.Dictionary") strSQL = "SELECT tube, test, ID, barcode_print, send FROM TEMPTEST;" Set rs = db.OpenRecordset(strSQL) Do While Not rs.EOF tubeValue = rs!tube testValue = rs!test idValue = rs!ID barcodePrintValue = rs!barcode_print sendValue = rs!send If Not tubeDict.Exists(tubeValue) Then tubeDict(tubeValue) = testValue Else tubeDict(tubeValue) = tubeDict(tubeValue) & ", " & testValue End If rs.MoveNext Loop rs.Close Set rs = Nothing db.Close '--------------------------------------------------------------------------------------------- Set db = Nothing Set db = CurrentDb For Each tubeValue In tubeDict.Keys strSQL = "INSERT INTO TEMPTEST2 (tube, [test], ID, barcode_print, send) " & _ "VALUES ('" & tubeValue & "', '" & tubeDict(tubeValue) & "', " & idValue & ", " & barcodePrintValue & ", " & sendValue & ");" db.Execute strSQL Next tubeValue db.Close Set db = Nothing End Sub ,طبعا تم عمل جدولين لحفظ البيانات مؤقتا وهم جدول TEMPTEST وجدول TEMPTEST2 وتم عمل 3 استعلامات ( اثنين لتفريغ البيانات من الجدولين المؤقت والثالث لنقل البيانات التى سيتم معالجتها الى الجدول الاول والملف الذى فيه كل ما تم هنا طباعة باركود-1.rar

فى تجربه انا اقوم بها لكن محتاجه وقت هخلصها وارجع ليكي لكن الموضوع محتاج بحث شويه معايا

جميل قربنا طيب فين مصدر الدرجات يعنى من وين اقدر اوصل للدرجة الخاصه بالتلميذ هذا لان مش شايف اى جدول اقدر اخذ منه الدرجات ام انك تريدين وضع قيم ثابته

كيف هتتكرر العينه

اذا جربي عمل محموعات داخل التقرير بناءا على قيمة الحقل المشترك فيه جميع التحاليل

سؤال هل التحديد مرتبط بقيمة فى جدول؟ اذا لا اعملى حقل جديد واجعلى التحديد منضم ومرتبط بقيمة ف جدول ومن ثم قومي باضافته ف الإستعلام

ده خطأ ف استعلام التقرير

لا لا لا مش كده خالص من هنا بنختار الخط

انا جربت الخط وشغال تمام معي اسم الخطين Ameen BarCode2 Bar-Code 39