jo_2010 قام بنشر الإثنين at 09:24 قام بنشر الإثنين at 09:24 (معدل) الخبير الافاضل منتصر الانسي ارجو تصحيح الكود قمت باضافة زر 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 ممكن لو تكرمت المساعدة فى تصحيح الكود في 6/7/2025 at 17:39, منتصر الانسي said: اتمنى أن يكون مساعدا وملهماً للأفكار الجديدة فهذا أهم الأسباب لقيامي بالعمل على هذه السلسلة بالإضافة لما تكرمت به أعتقد أيضا أنه سيغنينا عن إنشاء نماذج التحكم (النماذج التي لاتستخدم لإدخال البيانات) مثل نماذج تحديد معايير التقارير والإستعلامات وغيرها من النماذج تم تعديل الخميس at 12:02 بواسطه Foksh فتح موضوع جديد ستقل
منتصر الانسي قام بنشر الإثنين at 16:57 قام بنشر الإثنين at 16:57 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 .ResultMain = 6 Then 'القيمة المرتجعة من النقر على زر نعم هو الرقم 6 DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf .ResultMain = 7 Then 'القيمة المرتجعة من النقر على زر لا هو الرقم 7 DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub إنسخ الكود بهذا الوضع وجربه
jo_2010 قام بنشر الثلاثاء at 18:50 الكاتب قام بنشر الثلاثاء at 18:50 في 7/7/2025 at 19:57, منتصر الانسي said: 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 .ResultMain = 6 Then 'القيمة المرتجعة من النقر على زر نعم هو الرقم 6 DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf .ResultMain = 7 Then 'القيمة المرتجعة من النقر على زر لا هو الرقم 7 DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub إنسخ الكود بهذا الوضع وجربه استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام
منتصر الانسي قام بنشر الثلاثاء at 19:01 قام بنشر الثلاثاء at 19:01 4 دقائق مضت, jo_2010 said: DoCmd.close acReport, "External_lab_Mokh" هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة مع تحياتي
jo_2010 قام بنشر الثلاثاء at 20:01 الكاتب قام بنشر الثلاثاء at 20:01 47 دقائق مضت, منتصر الانسي said: هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة مع تحياتي معلمى الفاصل منتصر انا عامل كود غلق التقرير بعد الطباعة بمعنى يفتح التقرير تظهر الرسالة اختار yes يطبع ويغلق او no يغلق بدون طباعة اين اضع كود فتح التقرير فى الكود اللي حضرتك كتبتة بعد جملة اية حتى احصل علي مااربد شكرا لسعة صدرك
منتصر الانسي قام بنشر الأربعاء at 14:01 قام بنشر الأربعاء at 14:01 (معدل) اخي العزيز إذا كان التقرير يختفي خلف النموذج فعليك تعديل أمر فتح التقرير كالتالي DoCmd.OpenReport "youssef", acViewPreview, , , acDialog ستقوم المعلمة acDialog بفتح التقرير فوق النموذج أما إذا كان يقلق نهائيا فالاحتمالات كثيرة وسندخل في مرحلة التخمين التي قد يكون ضررها أكثر من فائدتها فيفضل ان ترفق مثال أو على الاقل تنسخ لي الكود في وضعه الحالي مع تحياتي تم تعديل الأربعاء at 14:10 بواسطه منتصر الانسي
jo_2010 قام بنشر الخميس at 06:22 الكاتب قام بنشر الخميس at 06:22 (معدل) 16 ساعات مضت, منتصر الانسي said: اخي العزيز إذا كان التقرير يختفي خلف النموذج فعليك تعديل أمر فتح التقرير كالتالي DoCmd.OpenReport "youssef", acViewPreview, , , acDialog ستقوم المعلمة acDialog بفتح التقرير فوق النموذج أما إذا كان يقلق نهائيا فالاحتمالات كثيرة وسندخل في مرحلة التخمين التي قد يكون ضررها أكثر من فائدتها فيفضل ان ترفق مثال أو على الاقل تنسخ لي الكود في وضعه الحالي مع تحياتي معلمى الفاضل واستاذ الجليل شكرا علي مساعدتى فى حل المشكلة ولكن عند الضغط على yes للطباعة يطبع كل التقرير وليس المفتوح فقط LAb.accdb تم تعديل الخميس at 06:58 بواسطه jo_2010
عمر ضاحى قام بنشر الخميس at 06:27 قام بنشر الخميس at 06:27 2 دقائق مضت, jo_2010 said: معلمى الفاضل واستاذ الجليل قمت بعمل التعديل علي طريقة فتح التقرير ولكن مع الأسف لا تظهر الرسالة الرائعة الاب د غلق التقرير اين الخطأ انظر الصور التقرير أصبح موجود ام النموذج فى انتظار الرسالة التى تطلب الطباعة ام الإغلاق لا تظهر الابعد غلق التقرير انظر صورة ٢ استاذ @jo_2010 ان جملة acDialog التى تضعها فى الاخر عند فتح التقرير او النموذج تجعل التقرير يكون هو الاول وتعطل اى اجراءات اخري حتى الانتهاء من الغرض من العرض لذا اذا كنت تريد عرض التقرير وعرض اجراء اخر يلي عرض التقرير قم بحذفها وان شاء الله تتحل المشكله (ال مش عارف ايه هيا 😅 بالظبط لكن حسب ما فهمت انت عاوز تعرض التقرير ورسالة صحيح ؟)
jo_2010 قام بنشر الخميس at 06:42 الكاتب قام بنشر الخميس at 06:42 (معدل) 32 دقائق مضت, عمر ضاحى said: استاذ @jo_2010 ان جملة acDialog التى تضعها فى الاخر عند فتح التقرير او النموذج تجعل التقرير يكون هو الاول وتعطل اى اجراءات اخري حتى الانتهاء من الغرض من العرض لذا اذا كنت تريد عرض التقرير وعرض اجراء اخر يلي عرض التقرير قم بحذفها وان شاء الله تتحل المشكله (ال مش عارف ايه هيا 😅 بالظبط لكن حسب ما فهمت انت عاوز تعرض التقرير ورسالة صحيح ؟) استاذى الفاضل شكرا للمساعدة عند حذفها يحتفى التقرير حلف النمزذج وتظهر الرسالة فقط قمت بإضافة البرنامج للتعديل علي الكود وخاصه عندالطباعة يطبع كل التقارير وليس المفتوح فقط تم تعديل الخميس at 07:00 بواسطه jo_2010
منتصر الانسي قام بنشر الخميس at 15:12 قام بنشر الخميس at 15:12 تم تعديل الكود في مثالك مع تحياتي LAb.rar
jo_2010 قام بنشر منذ 20 ساعات الكاتب قام بنشر منذ 20 ساعات (معدل) 18 ساعات مضت, منتصر الانسي said: تم تعديل الكود في مثالك مع تحياتي LAb.rar 308.85 kB · 9 downloads استاذى الفاضل بعد التحية DoCmd.OpenReport "youssef", acViewPreview, , , acDialog هذا الامر يجعل التقرير يظهر فى المقدمة ولاتظهر الرسالة وعند غلق التقرير تظهر الرسالة وهذا غير منطقى اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة انظر حضرتك الى الصورة هذة رسالة الاكسيس التقليدية اريد استبدالها برسائل حضرتك الاحترافية النموذج مفتوح وامامة التقرير وظهرت الرسالة التى تطلب منى الطباعة ام الاغلاق وعند استبدالها برسالة حضرتك الرائعة يختفى التقرير خلف النموذج انظر صورة 2 شكرا لك تم تعديل منذ 20 ساعات بواسطه jo_2010
Foksh قام بنشر منذ 20 ساعات قام بنشر منذ 20 ساعات 1 دقيقه مضت, jo_2010 said: اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة اسمح لي بمداخلة أخي جو .. الآن عند فتح التقرير والرسالة أمامه ، فلن يسعك رؤية التقرير ( إن كان صفحة أو أكثر .. ) لأسباب متعددة ، منها أن التقرير في وضع المعاينة سيكون ذا خط صغير ولن تستطيع تحريك أشرطة التمرير أو تكبير صفحة التقرير - Zoom - لرؤيته بشكل واضح ، صحيح ؟؟ إذا فإن عرض التقرير أو عدمه لن يغنيك بشيء. لذا ومن باب المنطق إما أن تجعل زر الطباعة داخل التقرير ، وبهذا ستتمكن من رؤيته كاملاً وتفحصه . أو رسالة الطباعة دون الإستناد لشرط عرض التقرير ( قد يكون مفتوحاً بوضع الإخفاء مثلاً .. ) هذه وجهة نظري الغير ملزمة طبعاً 😇
jo_2010 قام بنشر منذ 20 ساعات الكاتب قام بنشر منذ 20 ساعات منذ ساعه, Foksh said: اسمح لي بمداخلة أخي جو .. الآن عند فتح التقرير والرسالة أمامه ، فلن يسعك رؤية التقرير ( إن كان صفحة أو أكثر .. ) لأسباب متعددة ، منها أن التقرير في وضع المعاينة سيكون ذا خط صغير ولن تستطيع تحريك أشرطة التمرير أو تكبير صفحة التقرير - Zoom - لرؤيته بشكل واضح ، صحيح ؟؟ إذا فإن عرض التقرير أو عدمه لن يغنيك بشيء. لذا ومن باب المنطق إما أن تجعل زر الطباعة داخل التقرير ، وبهذا ستتمكن من رؤيته كاملاً وتفحصه . أو رسالة الطباعة دون الإستناد لشرط عرض التقرير ( قد يكون مفتوحاً بوضع الإخفاء مثلاً .. ) هذه وجهة نظري الغير ملزمة طبعاً 😇 معلمى الفاضل كلام حضرتك على عينى وراسى وكلام يحترم لكن فتح التقرير امامى يعطينى شعور بالارتياح انا باطبع اية اريد اعرف سبب اختفاء التقرير خلف النموذج مع الرسائل الاحترافية ولا يختفى مع الرسائل العادية وكيف اجعل زر للطباعة فى التقرير لا اعرف ان اعمل هذا لك خالص الشكر
منتصر الانسي قام بنشر منذ 14 ساعات قام بنشر منذ 14 ساعات 6 ساعات مضت, jo_2010 said: وكيف اجعل زر للطباعة فى التقرير لا اعرف ان اعمل هذا يمكنك ذلك عن طريق القوائم المختصرة قمت بتعديل مثالك حيث قمت بإضافة وحدة نمطية بإسم mdlPrintMenu تقوم بإنشاء قائمة مختصرة بإسم PrintMenu ومن خاصية Shortcut Menu Bar الخاصة بالتقرير (لا أتذكر الإسم بالعربي تماما ولكن يمكن أن يكون شريط قائمة الاختصارات) نقوم بإختيار PrintMenu من القائمة إن شاء الله يكون هذا الحل هذا هو الحل الذي تبحث عنه مع تحياتي LAb.rar
jo_2010 قام بنشر منذ 12 ساعات الكاتب قام بنشر منذ 12 ساعات 3 ساعات مضت, منتصر الانسي said: يمكنك ذلك عن طريق القوائم المختصرة قمت بتعديل مثالك حيث قمت بإضافة وحدة نمطية بإسم mdlPrintMenu تقوم بإنشاء قائمة مختصرة بإسم PrintMenu ومن خاصية Shortcut Menu Bar الخاصة بالتقرير (لا أتذكر الإسم بالعربي تماما ولكن يمكن أن يكون شريط قائمة الاختصارات) نقوم بإختيار PrintMenu من القائمة إن شاء الله يكون هذا الحل هذا هو الحل الذي تبحث عنه مع تحياتي LAb.rar 335.91 kB · 1 download استاذى الفاضل منتصر شكرا لانك كل يوم بتعلمنى شى جديد كتر الف خيرك بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر ولازلت اريد ان اعرف سبب اختفاء التقرير خلف النموذج الموضوع دة مجننى
kanory قام بنشر منذ 11 ساعات قام بنشر منذ 11 ساعات 36 دقائق مضت, jo_2010 said: بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر جرب المرفق التالي ............ LAb (1).accdb 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.