اذهب الي المحتوي
أوفيسنا

اسم التقرير


إذهب إلى أفضل إجابة Solved by Foksh,

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

تفضل 

 

    ' استخراج قيمة حقل Namex من النموذج أو الجدول
    Dim personName As String
    personName = Me.Namex ' تأكد من تحديث "Namex" بالحقل الصحيح في النموذج

    ' عرض رسالة تأكيد مع اسم الشخص
    If MsgBox("هل ترغب في طباعة تقرير urine  للـمريض " & personName & "؟", vbQuestion + vbYesNo, "تأكيد") = vbYes Then
        ' إذا تم النقر على نعم، قم بفتح وطباعة التقرير وثم إغلاقه
        DoCmd.OpenReport "urine", acViewNormal
        DoCmd.PrintOut
        DoCmd.Close acReport, "urine"
    Else
        ' إذا تم النقر على لا، لا تقم بفعل أي شيء
    End If

 

رابط هذا التعليق
شارك

  • أفضل إجابة

وهذه أيضاً مشاركة مع الأستاذ @محمد احمد لطفى

 

    Dim reportName As String
    Dim message As String
    Dim response As VbMsgBoxResult
    reportName = Application.CurrentObjectName
    message = "? " & reportName & " هل ترغب في طباعة ألتقرير "
    response = MsgBox(message, vbQuestion + vbYesNo, "سؤال")
    If response = vbYes Then
        MsgBox "سيتم طباعة التقرير"
    Else
        MsgBox "لم يتم طباعة التقرير"
    End If

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information