jo_2010

خالص الشكر معلمى الفاضل طلب اخير ليكتمل العمل مثلا فى شهر 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

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

الخبراء الافاضل كيف اكتب قاعدة 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 اسماء المرضى اللى يم كتابة نتائجهم ارجو اكون عرفت اوصل لحضرتك المطلوب