تصحيح كود زر للطباعة عند اختيار Yes

**jo_2010** · الإثنين 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

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

في 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

4 دقائق مضت, jo_2010 said:
DoCmd.close acReport, "External_lab_Mokh"

هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح

جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة

مع تحياتي

**jo_2010** · الثلاثاء at 20:01

47 دقائق مضت, منتصر الانسي said:

هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح

جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة

مع تحياتي

معلمى الفاصل منتصر

انا عامل كود غلق التقرير بعد الطباعة

بمعنى يفتح التقرير تظهر الرسالة اختار yes

يطبع ويغلق

او no يغلق بدون طباعة

اين اضع كود فتح التقرير فى الكود اللي حضرتك كتبتة

بعد جملة اية

حتى احصل علي مااربد

شكرا لسعة صدرك

**منتصر الانسي** · الأربعاء at 14:01

اخي العزيز

إذا كان التقرير يختفي خلف النموذج فعليك تعديل أمر فتح التقرير كالتالي

DoCmd.OpenReport "youssef", acViewPreview, , , acDialog

ستقوم المعلمة acDialog بفتح التقرير فوق النموذج

أما إذا كان يقلق نهائيا فالاحتمالات كثيرة وسندخل في مرحلة التخمين التي قد يكون ضررها أكثر من فائدتها فيفضل ان ترفق مثال أو على الاقل تنسخ لي الكود في وضعه الحالي

مع تحياتي

تم تعديل الأربعاء at 14:10 بواسطه منتصر الانسي

**jo_2010** · الخميس at 06:22

16 ساعات مضت, منتصر الانسي said:
اخي العزيز

إذا كان التقرير يختفي خلف النموذج فعليك تعديل أمر فتح التقرير كالتالي
DoCmd.OpenReport "youssef", acViewPreview, , , acDialog
ستقوم المعلمة acDialog بفتح التقرير فوق النموذج

أما إذا كان يقلق نهائيا فالاحتمالات كثيرة وسندخل في مرحلة التخمين التي قد يكون ضررها أكثر من فائدتها فيفضل ان ترفق مثال أو على الاقل تنسخ لي الكود في وضعه الحالي

مع تحياتي

معلمى الفاضل واستاذ الجليل

شكرا علي مساعدتى فى حل المشكلة

ولكن عند الضغط على yes للطباعة يطبع كل التقرير وليس المفتوح فقط

LAb.accdb

تم تعديل الخميس at 06:58 بواسطه jo_2010

**عمر ضاحى** · الخميس at 06:27

2 دقائق مضت, jo_2010 said:

معلمى الفاضل واستاذ الجليل

قمت بعمل التعديل علي طريقة فتح التقرير

ولكن مع الأسف لا تظهر الرسالة الرائعة الاب د

غلق التقرير اين الخطأ انظر الصور

التقرير أصبح موجود ام النموذج فى انتظار الرسالة التى تطلب الطباعة ام الإغلاق لا تظهر الابعد غلق التقرير انظر صورة ٢

استاذ @jo_2010

ان جملة

acDialog

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

وان شاء الله تتحل المشكله (ال مش عارف ايه هيا 😅 بالظبط لكن حسب ما فهمت انت عاوز تعرض التقرير ورسالة صحيح ؟)

**jo_2010** · الخميس at 06:42

32 دقائق مضت, عمر ضاحى said:
استاذ @jo_2010

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

وان شاء الله تتحل المشكله (ال مش عارف ايه هيا 😅 بالظبط لكن حسب ما فهمت انت عاوز تعرض التقرير ورسالة صحيح ؟)

استاذى الفاضل

شكرا للمساعدة

عند حذفها يحتفى التقرير حلف النمزذج وتظهر الرسالة فقط

قمت بإضافة البرنامج للتعديل علي الكود

وخاصه عندالطباعة يطبع كل التقارير وليس المفتوح فقط

تم تعديل الخميس at 07:00 بواسطه jo_2010

**منتصر الانسي** · الخميس at 15:12

تم تعديل الكود في مثالك

مع تحياتي

LAb.rar

**jo_2010** · بالامس في 08:28

18 ساعات مضت, منتصر الانسي said:

تم تعديل الكود في مثالك

مع تحياتي

LAb.rar 308.85 kB · 9 downloads

استاذى الفاضل

بعد التحية

DoCmd.OpenReport "youssef", acViewPreview, , , acDialog
هذا الامر يجعل التقرير يظهر فى المقدمة ولاتظهر الرسالة وعند غلق التقرير تظهر الرسالة وهذا غير منطقى

اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة

انظر حضرتك الى الصورة هذة رسالة الاكسيس التقليدية اريد استبدالها برسائل حضرتك الاحترافية

النموذج مفتوح وامامة التقرير وظهرت الرسالة التى تطلب منى الطباعة ام الاغلاق Untitled.jpg.a555e258d527a505631be51ab8abec6f.jpg وعند استبدالها برسالة حضرتك الرائعة يختفى التقرير خلف النموذج

انظر صورة 2

شكرا لك

تم تعديل بالامس في 08:38 بواسطه jo_2010

**Foksh** · بالامس في 08:34

1 دقيقه مضت, jo_2010 said:

اريد التقرير يظهر امام النموذج وبعد ذلك تظهر الرسالة تطلب منى الطباعة ام لا كيف اطبع تقرير غير موجود امامى لمراجعتة قيل الطباعة

اسمح لي بمداخلة أخي جو ..

الآن عند فتح التقرير والرسالة أمامه ، فلن يسعك رؤية التقرير ( إن كان صفحة أو أكثر .. ) لأسباب متعددة ، منها أن التقرير في وضع المعاينة سيكون ذا خط صغير ولن تستطيع تحريك أشرطة التمرير أو تكبير صفحة التقرير - Zoom - لرؤيته بشكل واضح ، صحيح ؟؟

إذا فإن عرض التقرير أو عدمه لن يغنيك بشيء.

لذا ومن باب المنطق إما أن تجعل زر الطباعة داخل التقرير ، وبهذا ستتمكن من رؤيته كاملاً وتفحصه . أو رسالة الطباعة دون الإستناد لشرط عرض التقرير ( قد يكون مفتوحاً بوضع الإخفاء مثلاً .. )

هذه وجهة نظري الغير ملزمة طبعاً 😇

**jo_2010** · بالامس في 08:42

منذ ساعه, Foksh said:

اسمح لي بمداخلة أخي جو ..

الآن عند فتح التقرير والرسالة أمامه ، فلن يسعك رؤية التقرير ( إن كان صفحة أو أكثر .. ) لأسباب متعددة ، منها أن التقرير في وضع المعاينة سيكون ذا خط صغير ولن تستطيع تحريك أشرطة التمرير أو تكبير صفحة التقرير - Zoom - لرؤيته بشكل واضح ، صحيح ؟؟

إذا فإن عرض التقرير أو عدمه لن يغنيك بشيء.

لذا ومن باب المنطق إما أن تجعل زر الطباعة داخل التقرير ، وبهذا ستتمكن من رؤيته كاملاً وتفحصه . أو رسالة الطباعة دون الإستناد لشرط عرض التقرير ( قد يكون مفتوحاً بوضع الإخفاء مثلاً .. )

هذه وجهة نظري الغير ملزمة طبعاً 😇

معلمى الفاضل

كلام حضرتك على عينى وراسى وكلام يحترم

لكن فتح التقرير امامى يعطينى شعور بالارتياح انا باطبع اية

اريد اعرف سبب اختفاء التقرير خلف النموذج مع الرسائل الاحترافية ولا يختفى مع الرسائل العادية

وكيف اجعل زر للطباعة فى التقرير لا اعرف ان اعمل هذا

لك خالص الشكر

**منتصر الانسي** · بالامس في 15:03

6 ساعات مضت, jo_2010 said:

وكيف اجعل زر للطباعة فى التقرير لا اعرف ان اعمل هذا

يمكنك ذلك عن طريق القوائم المختصرة

قمت بتعديل مثالك حيث قمت بإضافة وحدة نمطية بإسم mdlPrintMenu تقوم بإنشاء قائمة مختصرة بإسم PrintMenu ومن خاصية Shortcut Menu Bar الخاصة بالتقرير (لا أتذكر الإسم بالعربي تماما ولكن يمكن أن يكون شريط قائمة الاختصارات) نقوم بإختيار PrintMenu من القائمة

إن شاء الله يكون هذا الحل هذا هو الحل الذي تبحث عنه

مع تحياتي

LAb.rar

**jo_2010** · منذ 23 ساعات

3 ساعات مضت, منتصر الانسي said:

يمكنك ذلك عن طريق القوائم المختصرة

قمت بتعديل مثالك حيث قمت بإضافة وحدة نمطية بإسم mdlPrintMenu تقوم بإنشاء قائمة مختصرة بإسم PrintMenu ومن خاصية Shortcut Menu Bar الخاصة بالتقرير (لا أتذكر الإسم بالعربي تماما ولكن يمكن أن يكون شريط قائمة الاختصارات) نقوم بإختيار PrintMenu من القائمة

إن شاء الله يكون هذا الحل هذا هو الحل الذي تبحث عنه

مع تحياتي

LAb.rar 335.91 kB · 1 download

استاذى الفاضل منتصر

شكرا لانك كل يوم بتعلمنى شى جديد كتر الف خيرك

بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر

ولازلت اريد ان اعرف سبب اختفاء التقرير خلف النموذج الموضوع دة مجننى

**kanory** · منذ 22 ساعات

36 دقائق مضت, jo_2010 said:

بس انا كدة اتحرمت من الرسائل الاحترافية لم تعد تظهر

جرب المرفق التالي ............

LAb (1).accdb

**jo_2010** · منذ 10 ساعات

13 ساعات مضت, kanory said:

جرب المرفق التالي ............

LAb (1).accdb 1.15 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

استاذى الفاضل

خالص الشكر لاهتمامك

شكرا لتعبك

شكرا لكل الاساتذة الذين شاركوا فى كل المشكلة

تم تعديل منذ 9 ساعات بواسطه jo_2010

تسجيل الدخول

تصحيح كود زر للطباعة عند اختيار Yes

الردود الموصى بها

jo_2010

منتصر الانسي

jo_2010

منتصر الانسي

jo_2010

منتصر الانسي

jo_2010

عمر ضاحى

jo_2010

منتصر الانسي

jo_2010

Foksh

jo_2010

منتصر الانسي

jo_2010

kanory

jo_2010

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information