رسالة تنبيه

[safaa salem5]

ازاى اعمل رسالة تنبيه  زى دى

هل تريد طباعة التقرير للمريض (يجيب اسم المريض من الفورم )

(اضغط نعم (للطباعه )أو لا (للمعاينة

الأزرار 

Cancel.             No.           Yes

تم تعديل نوفمبر 15, 2023 بواسطه safaa salem5

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

تفضلى بالتوفيق

 

Private Sub Command0_Click()
    ' زر "Yes" - للطباعة
    Dim response As VbMsgBoxResult
    Dim patientName As String

    ' احصل على اسم المريض من النموذج
    patientName = Me![اسم_المريض]

    ' قم بعرض رسالة التأكيد مع اسم المريض
    response = MsgBox("هل تريد طباعة التقرير للمريض: " & patientName & "؟", vbYesNoCancel + vbQuestion, "تأكيد")

    Select Case response
        Case vbYes
            ' طباعة التقرير
            DoCmd.OpenReport "اسم_التقرير", acViewNormal
        Case vbNo
            ' معاينة التقرير
            DoCmd.OpenReport "اسم_التقرير", acViewPreview
        Case vbCancel
            ' إلغاء العملية
            MsgBox "تم إلغاء العملية.", vbInformation, "إلغاء"
    End Select
End Sub

 

[safaa salem5]

شكرا جدا لحضرتك  جزاك الله كل خير

[ابو فتحى]

2 ساعات مضت, محمد احمد لطفى said:

Dim response As VbMsgBoxResult

سؤال 

ما فائدة هدا المتغير للنص الرسالة