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

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

اعرض الملف

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

---

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

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

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

مع تحياتي

---

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

 

[عمر ضاحى]

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

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

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

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

 

[Foksh]

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

 

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

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

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

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

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

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

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

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

[ابوخليل]

شكرا استاذنا

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

[SAROOK]

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

ومفيدا جدا

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

وفقك الله

[Moosak]

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

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

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

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

[jo_2010]

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

 منتصر الانسي

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

تم تعديل منذ 12 ساعات بواسطه 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:

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

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

 

تم تعديل منذ 12 ساعات بواسطه 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

مع تحياتي