jo_2010

استاذى الفاضل منتصر شكرا لانك كل يوم بتعلمنى شى جديد كتر الف خيرك بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر ولازلت اريد ان اعرف سبب اختفاء التقرير خلف النموذج الموضوع دة مجننى

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

استاذى الفاضل بعد التحية DoCmd.OpenReport "youssef", acViewPreview, , , acDialog هذا الامر يجعل التقرير يظهر فى المقدمة ولاتظهر الرسالة وعند غلق التقرير تظهر الرسالة وهذا غير منطقى اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة انظر حضرتك الى الصورة هذة رسالة الاكسيس التقليدية اريد استبدالها برسائل حضرتك الاحترافية النموذج مفتوح وامامة التقرير وظهرت الرسالة التى تطلب منى الطباعة ام الاغلاق وعند استبدالها برسالة حضرتك الرائعة يختفى التقرير خلف النموذج انظر صورة 2 شكرا لك

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

معلمى الفاضل واستاذ الجليل شكرا علي مساعدتى فى حل المشكلة ولكن عند الضغط على yes للطباعة يطبع كل التقرير وليس المفتوح فقط LAb.accdb

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

استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام

الخبير الافاضل منتصر الانسي ارجو تصحيح الكود قمت باضافة زر yes و no اريد عند الضغط علىyes يفتح التقرير ويقوم بالطباعة وعند الضغط علىNO يغلق التقرير Private Sub JOS_Click() Dim TaskDialog As cTaskDialog Set TaskDialog = New cTaskDialog With TaskDialog .Init .ParenthWnd = Me.hWnd .Flags = TDF_RTL_LAYOUT .MainInstruction = "طباعة تقرير" .Content = "هل تريد طباعة تقرير المخنبر" .CommonButtons = TDCBF_OK_BUTTON .IconMain = TD_SHIELD_OK_ICON .CommonButtons = TDCBF_YES_BUTTON Or TDCBF_NO_BUTTON .Title = "المعمل الطبى" .ShowDialog Me.lblButton.Caption = .ResultMain If CommonButtons = TDCBF_YES_BUTTON Then DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf Me.lblButton.Caption = TDCBF_NO_BUTTON Then DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub ممكن لو تكرمت المساعدة فى تصحيح الكود

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

الخبير الفاضل اريد التعديل على الكود حتى لا اربط التقرير بال colour لانة يفتح تقارير اخرى لا تحتوى على colour مع العلم ان الاستعلام داخل التقرير وليس استعلام منفصل

الخبراء الافاضل بعد التحية عندى تفرير اريد فتحة بشرط ان تكون حقل colour غير فارغ برجاء التعديل على الكود الكود يعمل بكفاءة حسب التاريخ اريد اضافة اللون ايضا لكم الشكر Me.Refresh DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate= #" & [DDate] & "#", , Screen.ActiveControl.Caption Lab.rar

خالص الشكر لحضرتك

الخبراء الافاضل كيف اكتب قاعدة if مع الوقت اريد عمل الاتى عند فتح النموذج وكان الساعة بعد الثالثة عصرا يختفى زر اسمة Alborg كيف اكتب الدالة

الخبير الفاضل خالص الشكر لحضرتك واعتذر لعدم طرح سؤالى بشكل جيد

معلمى الفاضل دى وحدة نمطبة مش هينفع استخدم me ثم حضرتك دى بتعمل علي اكثر من زر مش هايتفع Me.BTNFoksh لان كل زر لة اسم انجليزىو Caption انجليزى مختلف

الخبراء الافاضل بعد التحية هل استطيع اظهار اسم الزر فى رسالة بمعنى عندى اكثر من زر وكل زر يفتح تقرير معين مثلا زر urine عند الضغط علية تظهر رسالة مكتوب بها If MsgBox("هـل . . . . . تريـد طبـاعة تقريـر الخـاص " & vbNewLine & vbCrLf & _ " بـــ " & PNAME & " " & kind & " ", vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then DoCmd.PrintOut DoCmd.close acReport, Reports(0).Name Else DoCmd.close End If اريد بعد كلمة تقرير الموجود بالرسالة اضيف ال Caption الخاص بالزر

معلمى الفاضل عند الضغط على مفتاح اضغط هنا تنسدل قائمة بها اسماء التحاليل نختار مثلا creat يظهر فى نموذج newpp اسماء المرضى اللى لم تكتب نتائجخم وفى النموذج الاخر newpuok اسماء المرضى اللى يم كتابة نتائجهم ارجو اكون عرفت اوصل لحضرتك المطلوب

معلمى الفاضل نموذج newpp يعرض اسماء المرضى اللي ليهم اسم التحليل اللي اخترناة من القائمة المنسدلة التى تظهر عند الضغط على مفتاح اضغط هنا وعند الضغط علي حرف الموجود بجوار اسم المريض يظهر اسمة فى النموذج newpuok بعد كتابة النتيجة عشان نعرف مين تم كتابة نتيجتة ومين لسة

النموذج new pp اسماء المرضى new puok ينتقل المريض إلى النمودج دة عند كتابة نتيجتة ويتبقى فى النموذجnewpp المرضى الذين لم تكتب لهم النتيجة

معلمى الفاضل واستاذى الجليل لم يحدث اى تغيير النموذج فارغ بعد الضغط على اسم المريضة ولاء عبدالراضى

الخبير الفاضل الذى لايبخل بعلمة على احد قمت بعمل بموذج لادخال بيانات مريض جديد او اضافة تحاليل لمريض قديم ممكن حضرتك تضغط على مفتاح اضغط هنا الموجود بالنموذج وتخنار تحليل معين سيظهر امامك اسماء الاشخاص اللى لهم هذا التحليل اليك نسخة جديدة من البرنامج بعد اضافة نموذج الادخال JO 2025_new.rar

هل طلبى اصبح واضح خالص الشكر