تصحيح كود IF

[jo_2010]

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

If MsgBox("ماذا تريد ان تفعل اضغط Yes لفتح النموذج NO لفتح التقرير Cancel للتراجع  " & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") = vbYes Then
DoCmd.OpenForm "22"
ElseIf vbNo Then
DoCmd.OpenReport "33", acViewPreview
ElseIf vbCancel Then
Undo

Else
End If

كتبت الكود بهذا الشكل ويعمل بصورة جيدة 

ولكن عند الضغط علىcancel يقوم بتنفيذ الامر السابق وهو فتح التقرير 

اريد عند الضفط على cancel غلق الرسالة  

اريد التعديل  على هذا الكود بقاعدة if

دون استخدام sselect  Case

 

تم تعديل منذ 1 ساعه بواسطه jo_2010

[ابو البشر]

19 دقائق مضت, jo_2010 said:

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

If MsgBox("ماذا تريد ان تفعل اضغط Yes لفتح النموذج NO لفتح التقرير Cancel للتراجع  " & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") = vbYes Then
DoCmd.OpenForm "22"
ElseIf vbNo Then
DoCmd.OpenReport "33", acViewPreview
ElseIf vbCancel Then
Undo

Else
End If

كتبت الكود بهذا الشكل ويعمل بصورة جيدة 

ولكن عند الضغط علىcancel يقوم بتنفيذ الامر السابق وهو فتح التقرير 

اريد عند الضفط على cancel غلق الرسالة  

اريد التعديل  على هذا الكود بقاعدة if

دون استخدام sselect  Case

 

جرب هذا

Dim result As VbMsgBoxResult

result = MsgBox("ماذا تريد ان تفعل اضغط Yes لفتح النموذج NO لفتح التقرير Cancel للتراجع" & vbCrLf & vbCrLf & "الحمدلله", _
                vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان")

If result = vbYes Then
    DoCmd.OpenForm "22"
    
ElseIf result = vbNo Then
    DoCmd.OpenReport "33", acViewPreview
    
ElseIf result = vbCancel Then
    Exit Sub   ' 👈 هنا يخرج بدون أي إجراء
End If