اسم التقرير

[jo_2010]

السادة الخبراء الافاضل

هل يمكن كتابة اسم التقرير فى رسالة

مثال

هل تريد طباعة تقرير urine للمريض احمد محمود ؟

[محمد احمد لطفى]

تفضل 

 

    ' استخراج قيمة حقل 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

 

[Foksh]

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

 

    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

 

[jo_2010]

خالص الشكر للافاضل 

Foksh

محمد احمد لطفى