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

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

 منتصر الانسي

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

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

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

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          
        
        '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

اريد عند الضغط على نعم يقوم بالطباعة وعند الضغط على لا يغلق الرسالة