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 كيف اكتب الدالة