اذهب الي المحتوي
أوفيسنا

jo_2010

04 عضو فضي
  • Posts

    828
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

110 Excellent

عن العضو jo_2010

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    تحالبل طبية
  • البلد
    مصر القاهرة
  • الإهتمامات
    الكمبيوتر الفوتوشوب برمجة اكسيس

اخر الزوار

6257 زياره للملف الشخصي
  1. استاذى الفاضل خالص الشكر لاهتمامك شكرا لتعبك شكرا لكل الاساتذة الذين شاركوا فى كل المشكلة
  2. استاذى الفاضل منتصر شكرا لانك كل يوم بتعلمنى شى جديد كتر الف خيرك بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر ولازلت اريد ان اعرف سبب اختفاء التقرير خلف النموذج الموضوع دة مجننى
  3. معلمى الفاضل كلام حضرتك على عينى وراسى وكلام يحترم لكن فتح التقرير امامى يعطينى شعور بالارتياح انا باطبع اية اريد اعرف سبب اختفاء التقرير خلف النموذج مع الرسائل الاحترافية ولا يختفى مع الرسائل العادية وكيف اجعل زر للطباعة فى التقرير لا اعرف ان اعمل هذا لك خالص الشكر
  4. استاذى الفاضل بعد التحية DoCmd.OpenReport "youssef", acViewPreview, , , acDialog هذا الامر يجعل التقرير يظهر فى المقدمة ولاتظهر الرسالة وعند غلق التقرير تظهر الرسالة وهذا غير منطقى اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة انظر حضرتك الى الصورة هذة رسالة الاكسيس التقليدية اريد استبدالها برسائل حضرتك الاحترافية النموذج مفتوح وامامة التقرير وظهرت الرسالة التى تطلب منى الطباعة ام الاغلاق وعند استبدالها برسالة حضرتك الرائعة يختفى التقرير خلف النموذج انظر صورة 2 شكرا لك
  5. استاذى الفاضل شكرا للمساعدة عند حذفها يحتفى التقرير حلف النمزذج وتظهر الرسالة فقط قمت بإضافة البرنامج للتعديل علي الكود وخاصه عندالطباعة يطبع كل التقارير وليس المفتوح فقط
  6. معلمى الفاضل واستاذ الجليل شكرا علي مساعدتى فى حل المشكلة ولكن عند الضغط على yes للطباعة يطبع كل التقرير وليس المفتوح فقط LAb.accdb
  7. معلمى الفاصل منتصر انا عامل كود غلق التقرير بعد الطباعة بمعنى يفتح التقرير تظهر الرسالة اختار yes يطبع ويغلق او no يغلق بدون طباعة اين اضع كود فتح التقرير فى الكود اللي حضرتك كتبتة بعد جملة اية حتى احصل علي مااربد شكرا لسعة صدرك
  8. استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام
  9. الخبير الافاضل منتصر الانسي ارجو تصحيح الكود قمت باضافة زر 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 ممكن لو تكرمت المساعدة فى تصحيح الكود
  10. الخبير الفاضل ممكن لوتكرمت المساعدة فى تصحيح هذا الكود 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 '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 اريد عند الضغط على نعم يقوم بالطباعة وعند الضغط على لا يغلق الرسالة
  11. الخبير الفاضل اريد التعديل على الكود حتى لا اربط التقرير بال colour لانة يفتح تقارير اخرى لا تحتوى على colour مع العلم ان الاستعلام داخل التقرير وليس استعلام منفصل
  12. الخبراء الافاضل بعد التحية عندى تفرير اريد فتحة بشرط ان تكون حقل colour غير فارغ برجاء التعديل على الكود الكود يعمل بكفاءة حسب التاريخ اريد اضافة اللون ايضا لكم الشكر Me.Refresh DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate= #" & [DDate] & "#", , Screen.ActiveControl.Caption Lab.rar
  13. خالص الشكر لحضرتك
×
×
  • اضف...

Important Information