عمر ضاحى

النقطه الفاصله هنا انت عاوز اخر تاريخ ايه واين يحصل عليه هل سيتم حفظ التاريخ فى حقل فى جدول ما ؟ غير فى نقطه فى الكود الخاص بك فى حرف F زائد على المسار انظر "F\\10.12.20.125 ربما هذا هو الخطأ

اتفضلى بعد التعديل طباعة باركود-1 (1).rar لان طلبها الاصلى ان تتحكم فى التقارير والعينات ولا تريد طباعة كل العينات للمريض (عافانا الله واياكم) ^_^

اذهبى الى الاستعلام patient_data وضيفي الحقل barcode_print من جدول test_order_tbl ثم اذهبي الى الاستعلام NewQueryDef وايضا ضيفى الحقل barcode_print من الاستعلام patient_data وهتتحل المشكله ملاحظه جانبيه فى الحقول المنضمه barcode_print و drawn التى فى النموذج الفرعي داخل النموذج barcode_frm اعملى حدث بعد التحديث وضيفى السطر التالى Me.Form.Requery علشان يحدث البيانات مرفق ملف طباعة باركود-1 (1).rar

ايه الخطأ ارفعي صورة او الملف افضل بعد التعديل

جربي وشوفى مثلا الغي احد التحليلين الخاص بتحليل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

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

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

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

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