jo_2010

الخبير الفاضل صاحب الابداع المستمر خالص الشكر لك

معلمى الفاضل اتفضل 03TP-04QW-074Y-01OE

الخبراء الافاضل اريد التعديل على هذا الكود DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate = #" & [DDate] & "# AND NOT IsNull(colour)", , Screen.ActiveControl.Caption عند الضغط على زر فتح التقرير يفتح على تاريخ 8 فبراير بدل من تاريخ 2 اغسطس لكم الشكر

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

الخبير الفاضل قمت بتطبيق اللى حضرتك كتبتة واعطى نتائج رائع لكن مع التقرير YOUSSEF وعند تغيير اسم التقرير الى External_lab_Mokh لم يعد يعمل هل هناك شئ فى خصائص التقرير youssef غير موجود التقرير External_lab_Mokh ارجو المساعدة

استاذى ومعلمى الفاضل اكتشفت بالصدقة انة عند الضغط على اى مكان فى النموذج تختفى الرسالة والتقرير خلف النموذج اريد ثبات الرسالة والتقرير (يكونوا مشروط Popup) حتى اقرر اطبع او اغلق شكرا

خالص الشكر معلمى الفاضل طلب اخير ليكتمل العمل مثلا فى شهر august عدد الايام 23 يوم والساعات والدقائق التى عملت فيها 133:35 اذا كان اليوم 5 ساعات عمل133:35 تساوى كام يوم مثلا 26.67 يوم عشان اعرف الوقت الاضافى اريد اضافة حقل فى الاستعلام ييظر عدد الايام بعد القسمى على 5 ساعات ملحوظة فى التجميع اليدوى شهر june = 116:00 فى جدول حضرتك مكتوب امام شهر june = 117:00 برجاء اعادة التجميع لان فر فروق فى باقى الاشهر لك خالص الشكر

الخبراء الافاضل بعد التحية عند جدول حضور وانصراف قمت بعمل فرق للوقتين بمساعدة الافاضل اعضاء المنتدى والان اريد تجميع هذا الفارق بمعنى حضو ر8:40 AM وانصراف PM 5:25 الفرق = Wowk_time 8:45 اريد فى استعلام تجميع عدد ساعات العمل حسب الشهر مثلا مايو = 153:42 يوتيو = 161:23 وهكذا اليكم القاعدة للتعديل عليها يتم التجميع حسب اسم الشهر Mmonth JO_TIME.rar

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

ربنا يوفقك ويكرمك

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

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

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

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

استاذى الفاضل بعد التحية 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