safaa salem5

الحقول كلها هيكون ليها قيمه default هتيجى من الحقل fixeddefault بحيث ان المستخدم ميقعدش يكتب كل التقرير هو ممكن يعمل تعديلات عادى اما بخصوص الحقول غير المنضمه فهى لمجرد التوضيح لمدخل النتائج امثلا اسم الحقل ايه ف التقرير .. والنورمال بتاعه ايه ..وهكذا يعنى مرايه فقط وليس للتعديل عليها فى مكان تانى خاص بالتعديل على القيم ال default هو اجابة حضرتك توفى بالغرض بس كنت حابه اتعلم باكتر من طريقه وحاسه انها ممكن تتعمل بالداله دى

جزاك الله خيرا هو دا المطلوب بس اطمع بعمل ذلك باستخدام داله DLookUp زى كدا DLookUp("fixedname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") DLookUp("Reportname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") DLookUp("fixeddefault";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") DLookUp("fixednormal";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

والله عملت كل الملاحظات ولسه بتظهر كلمة دليت

عندى فورم اسمه urine_frm مصدر بياناته جدول اسمه urine_tbl عايزه عند التركيز فى اى حقل من حقول الفورم يستعرض بيانات سجل من جدول اخر اسمه Fixed_tbl فى حقول غير مرتبطه فى نفس الفورم فمثلا عند الوقوف فى حقل volume المطلوب TestnameN=Volume(Urine) Reportname=Volume default=Random sample Normal=Random sample وهكذا لكل الحقول انا حاولت =DLookUp("fixedname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") =DLookUp("Reportname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") =DLookUp("fixeddefault";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") =DLookUp("fixednormal";"fixed_tbl";"[fixedname] = 'Volume(Urine)'") بس مش عارفه اظبط الكود وهل فى ماكرو للفورم بكل حقوله بدلا من وضع الكود فى كل حقل New Microsoft Access Database (2).accdb

متشكره لحضرتك انا اضفت الكود بتظهر للحظات وبتختفى هل من طريقه لعدم ظهورها تماما

؟؟

؟؟

دا الكود تحت الزرار On Error Resume Next If MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÍÐÝ ÈíÇäÇÊ ÇáãÑíÖ¿", vbYesNo, "ÃäÊÈå ") = vbYes Then DoCmd.SetWarnings (0) ' DoCmd.OpenQuery "qrydeletedPatientTest" ' DoCmd.OpenQuery "QryDeleteTestOrderTbl" Dim strSQL1, strSQL2 As String strSQL1 = "DELETE test_order_tbl.*, test_order_tbl.ID " & _ "FROM test_order_tbl " & _ "WHERE (((test_order_tbl.ID)=" & Forms![reservation_frm]![ID] & "));" strSQL2 = "DELETE reservation_tbl.*, reservation_tbl.ID " & _ "FROM reservation_tbl " & _ "WHERE (((reservation_tbl.ID)=" & Forms![reservation_frm]![ID] & "));" ' strSQL2 = "DELETE test_order_tbl.test, test_order_tbl.sub, test_order_tbl.ID, test_order_tbl.tcode, test_order_tbl.torder, test_order_tbl.patient_price, test_order_tbl.num " & _ "FROM test_order_tbl " & _ "WHERE (((test_order_tbl.ID)=" & Forms!reservation_frm!ID & "));" DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2 DoCmd.SetWarnings (1) DoCmd.RunCommand acCmdDeleteRecord selected_list.Requery Else DoCmd.CancelEvent End If

DoCmd.OpenForm "urine_frm", , , "[ID]=" & Me.ID Forms!urine_frm!ID = Me.ID Forms!urine_frm!tdate= Forms![visit_frm]![vdate] Forms!urine_frm!code = Forms![visit_frm]! جزاك الله خيرا

السلام عليكم طيب لو الحقول دى فى الفورم الرئيسى ولكن الزرار فى صب فورم

لو عندى فورم فيه حقول ID Code T.date عايزه عند الضغط على زرار تتنقل معايا كل قيم الحقول السابقه إلى الفورم الجديد اللى مصدر بياناته جدول ويحتوى على حقول مثل السابق ذكرهم وعند الفتح يتم الفتح بناء على حقل ال ID بدون تغيير مصدر بيانات الفورم إلى استعلام

اللى انا لاحظته ان جدول اليورن مفهوش غير سجل واحد عشان كدا نفس السجل بيفتح مع كل الزيارات

فى حقل ال ID فى فورم اليورن كتبت كده اعمل ايه تانى

مبسوطه جدا ان البوست بتاعى جمع مجموعه من عمالقة المنتدى طيب خلينى اغير سؤالى لو انا عندى فورم اسمه URINE_FRM مصدره جدول وليس استعلام اسمه URINE موجود فى الجدول دا حقل ID ومعنديش مفتاح رئيسى -------------------------------------------------------- عايزه عملية الفلتره تتم عند الضغط على زرار فى الفورم السابق اسمه VIST_FRM مصدره جدول يحتوى على حقل ال ID ايضا هيفتح الفورم URINE_FRM بحيث قيمة ال ID فى فورم URINE_FRM تساوى ID VIST_FRM ويحصل فلتره لجدول اليورن بحيث يفتح ال ID اللى انا جايه بيه من فورم VIST_FRM اعملها ازاى

طيب انا هطبق طريقة الاستعلام داخل الفورم بس عايزه اعمل الاستعلام بدون فلتره والفلتره ب id عايزه اعملها عن طريق كود من باب التعلم لانى عارفه طريقه الفلتره عن طريق الاستعلام الموجود في النموزج علشان عندى نمازج عايزه الاستعلام يكون مصدر النموزج ونمازج تانيه عايزه الجدول يكون مصدر النموزج @ابو جودي الطريقه اللى بتخلى شكل الفلتر كدا

متشكره والله بس فى كومنت بسيط هو ليه لما بفتح الفورم عن طريق الكود دا علامه التحميل بتظهر والفورم بياخد وقت عما بيفتح غير فى طريقة الاستعلام بيفتح اسرع طيب لو عايزه الاستعلام يكون موجود عادى بس الفلتره ب id فقط تكون عن طريق الكود اعملها ازاى @ابو جودي

SELECT CBC_tbl.ID, CBC_tbl.tdate, CBC_tbl.code, CBC_tbl.age, CBC_tbl.hgb, CBC_tbl.hgb_s, CBC_tbl.rbc, CBC_tbl.rbc_s, CBC_tbl.hct, CBC_tbl.hct_s, CBC_tbl.hgbp, CBC_tbl.mcv, CBC_tbl.mcv_s, CBC_tbl.mch, CBC_tbl.mch_s, CBC_tbl.mchc, CBC_tbl.mchc_s, CBC_tbl.rdwcv, CBC_tbl.rdwcv_s, CBC_tbl.rdwsd, CBC_tbl.rdwsd_s, CBC_tbl.plt, CBC_tbl.plt_s, CBC_tbl.pct, CBC_tbl.pct_s, CBC_tbl.pdw, CBC_tbl.pdw_s, CBC_tbl.mpv, CBC_tbl.mpv_s, CBC_tbl.wbc, CBC_tbl.wbc_s, CBC_tbl.netp, CBC_tbl.netp_s, CBC_tbl.lymp, CBC_tbl.lymp_s, CBC_tbl.monp, CBC_tbl.monp_s, CBC_tbl.eosp, CBC_tbl.eosp_s, CBC_tbl.basp, CBC_tbl.basp_s, CBC_tbl.net, CBC_tbl.net_s, CBC_tbl.lym, CBC_tbl.lym_s, CBC_tbl.mon, CBC_tbl.mon_s, CBC_tbl.eos, CBC_tbl.eos_s, CBC_tbl.bas, CBC_tbl.bas_s, CBC_tbl.MIDp, CBC_tbl.MIDp_s, CBC_tbl.Mid, CBC_tbl.MID_s, CBC_tbl.comment, CBC_tbl.segmp, CBC_tbl.segmp_s, CBC_tbl.bandp, CBC_tbl.bandp_s, CBC_tbl.segm, CBC_tbl.segm_s, CBC_tbl.[band], CBC_tbl.band_s, CBC_tbl.WBC_HISTOGRAM, CBC_tbl.RBC_HISTOGRAM, CBC_tbl.PLT_HISTOGRAM FROM CBC_tbl WHERE CBC_tbl.ID = [Forms]![visit_frm]![ID]; حاولت بالطريقة دى Me.RecordSource = "SELECT CBC_tbl.ID, CBC_tbl.tdate, CBC_tbl.code, CBC_tbl.age, CBC_tbl.hgb, CBC_tbl.hgb_s, CBC_tbl.rbc, CBC_tbl.rbc_s, CBC_tbl.hct, CBC_tbl.hct_s, CBC_tbl.hgbp, CBC_tbl.mcv, CBC_tbl.mcv_s, CBC_tbl.mch, CBC_tbl.mch_s, CBC_tbl.mchc, CBC_tbl.mchc_s, CBC_tbl.rdwcv, CBC_tbl.rdwcv_s, CBC_tbl.rdwsd, CBC_tbl.rdwsd_s, CBC_tbl.plt, CBC_tbl.plt_s, CBC_tbl.pct, CBC_tbl.pct_s, CBC_tbl.pdw, CBC_tbl.pdw_s, CBC_tbl.mpv, CBC_tbl.mpv_s, CBC_tbl.wbc, CBC_tbl.wbc_s, CBC_tbl.netp, CBC_tbl.netp_s, CBC_tbl.lymp, CBC_tbl.lymp_s, CBC_tbl.monp, CBC_tbl.monp_s, CBC_tbl.eosp, CBC_tbl.eosp_s, CBC_tbl.basp, CBC_tbl.basp_s, CBC_tbl.net, CBC_tbl.net_s, CBC_tbl.lym, CBC_tbl.lym_s, CBC_tbl.mon, CBC_tbl.mon_s, CBC_tbl.eos, CBC_tbl.eos_s, CBC_tbl.bas, CBC_tbl.bas_s, CBC_tbl.MIDp, CBC_tbl.MIDp_s, CBC_tbl.Mid, CBC_tbl.MID_s, CBC_tbl.comment, CBC_tbl.segmp, CBC_tbl.segmp_s, CBC_tbl.bandp, CBC_tbl.bandp_s, CBC_tbl.segm, CBC_tbl.segm_s, CBC_tbl.[band], CBC_tbl.band_s, CBC_tbl.WBC_HISTOGRAM, CBC_tbl.RBC_HISTOGRAM, CBC_tbl.PLT_HISTOGRAM from CBC_tbl WHERE CBC_tbl.ID=[Forms]![visit_frm]![ID];" بس بيدينى خطأ فى الكود

دا مش موضوع جديد دا نفس الموضوع عموما شكرا

طيب بص حضرتك هو الكود تمام بس الجزا الخاص ب الهيدر ااعتقد اصغر شويه من اصب ريبورت عشان كده مش بيظهر كله لازم احرك الماوس لتحت عشان باقى التقرير يظهر بس بصراحه التقرير اللى فى الملف بتاع حضرتك بيفتح تمام بدون مشاكل مش عارفه انا الخطأ عندى فين رغم انى ناقله الكود بالظيط

هو ممكن حضرتك تشرحلى الكود داM.Abd Allah Private Sub Report_Load() Dim intRecordCount As Integer Me.A.Report.Visible = True intRecordCount = DCount("*", "settings_Report_tbl") Me.PageHeaderSection.Height = 0 Me.A.Height = Me.A.Report.Section(acDetail).Height * intRecordCount End Sub

شكرا جدا لحضرتك لاهتمامك كل سنه وانت طيب Ahmos

الحمد لله أنه بخير شكرا لحضرتك جزاكم الله خيرا على اهتمام حضرتك

ما هو فعلا فيه مجلد معمول جاهز بالاسم دا فى البرنامج تمام كد بس ياريت تسمية الريبورت بالاسم مع ال ID مع محتويات التقرير من تحاليل اللى هى SUB TEST لان نفس المريض ممكن يتم عمل تصدير لتحاليل اخرى فى ريبورتات مختلفه لذا وجب تسمية الريبورت بنوع التحليل

Dim Project_path, Dir_File As String Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1") Dir_File = Project_path & "\ملفات تم تصديرها\" DoCmd.OutputTo acOutputForm, "تذاكر_نموذج_استعلام", "PDFFormat(*.pdf)", Dir_File & "تذاكر " & Format(Now, "DD-MM-YYYY") & ".pdf", False انا لقيت كود للاخ ناقل بس محتاج تعديل