مكتبة الموقع - إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox {سلسلة الأدوات المساعدة المخصصة}

[منتصر الانسي]

اعرض الملف

إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox {سلسلة الأدوات المساعدة المخصصة}

---

أرفق لك إحدى الأدوات الرائعة التي يمكن أن تغنيك عن الكثير من النماذج وتجعل رسائل التنبيه تشبه رسائل ويندوز

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

أرجو أن تنال إعجابكم 

مع تحياتي

---

• صاحب الملف
  منتصر الانسي
• تمت الاضافه
  07/05/25
• الاقسام
  قسم الأكسيس

 

[عمر ضاحى]

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

احب اقول لك بارك الله فيك 

ده ملف مهم جدا ويفتح مجال فى طريقة التفكير 

بارك الله فيك وفى علمك وجزاك الله خير الجزاء

 

[Foksh]

عمل جميل ، ويحتاجه مصممي البرامج والذين يريدون تغيير نمط الرسائل ..

 

جزاكم الله خيراً على هذه الأفكار الجميلة 

[منتصر الانسي]

9 ساعات مضت, عمر ضاحى said:

ده ملف مهم جدا ويفتح مجال فى طريقة التفكير 

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

2 ساعات مضت, Foksh said:

عمل جميل ، ويحتاجه مصممي البرامج والذين يريدون تغيير نمط الرسائل ..

بالإضافة لما تكرمت به أعتقد أيضا أنه سيغنينا عن إنشاء نماذج التحكم (النماذج التي لاتستخدم لإدخال البيانات)  مثل نماذج تحديد معايير التقارير والإستعلامات وغيرها من النماذج 

[ابوخليل]

شكرا استاذنا

مرجع مهم ومكتبة لمن يريد التوسع في تخصيص وتمييز الرسائل

[SAROOK]

عمل ومجهود ممتاز

ومفيدا جدا

اشكرك بشمهندس  منتصر

وفقك الله

[Moosak]

ما شاء الله تبارك الرحمن 😀

من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊

مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹

هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂 

[jo_2010]

الخبير الافاضل

 منتصر الانسي

شكرا على هذا الابداع المنقطع النظير بارك الله فيك ولك

تم تعديل الإثنين at 09:24 بواسطه jo_2010

[jo_2010]

الخبير الافاضل

منتصر الانسي

ارجو تصحيح الكود

قمت باضافة زر 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

ممكن لو تكرمت المساعدة فى تصحيح الكود 

 

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

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

بالإضافة لما تكرمت به أعتقد أيضا أنه سيغنينا عن إنشاء نماذج التحكم (النماذج التي لاتستخدم لإدخال البيانات)  مثل نماذج تحديد معايير التقارير والإستعلامات وغيرها من النماذج 

 

تم تعديل الإثنين at 09:29 بواسطه jo_2010

[منتصر الانسي]

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

إنسخ الكود بهذا الوضع وجربه

[منتصر الانسي]

21 ساعات مضت, ابوخليل said:

شكرا استاذنا

مرجع مهم ومكتبة لمن يريد التوسع في تخصيص وتمييز الرسائل

سعيد جدا لأنه نال إستحسانكم

9 ساعات مضت, Moosak said:

ما شاء الله تبارك الرحمن 😀

من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊

مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹

هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂

كلام من جماله أعجز عن الرد بالرد الذي يمكن أن يعبر عن مدى سعادتي وامتناني به والشكر موصول للأخ @SAROOK

مع تحياتي

[jo_2010]

في 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 للغلق

للك خالص الشكر والتقدير والاحترام 

[منتصر الانسي]

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

DoCmd.close acReport, "External_lab_Mokh"

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

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

مع تحياتي 

[jo_2010]

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

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

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

مع تحياتي 

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

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

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

يطبع ويغلق

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

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

بعد جملة اية

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

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

[منتصر الانسي]

اخي العزيز 

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

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

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

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

مع تحياتي

تم تعديل منذ 3 ساعات بواسطه منتصر الانسي