اريد رساله لتأكيد الخروج"هل أنت متأكد تريد الخروج"

[aboasem33]

السلام عليكم ورحمة الله وبركاته

عند النقر على زر امر اريد ان تظهر رسالة "هل أنت متأكد تريد الخروج"

فاذا اختار نعم يغلق النموذج واذا لا لا يتم غلق النموذج

[التقني]

وعليكم السلام ورحمة الله وبركاته

استخد هذا الكود في حدث عند النقر على الزر command1

Private Sub Command1_Click()
GoOut = MsgBox("هل تريد الخروج بالفعل ؟", vbYesNo, "خروج")
    If GoOut = vbYes Then
        DoCmd.Close
    End If
End Sub