تصحيح كود 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

 

تم تعديل منذ 15 ساعات بواسطه 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

 

[jo_2010]

2 ساعات مضت, ابو البشر said:

جرب هذا

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

استاذى الفاضل 

شكرا لحضرتك

مفيش اى تعديل علي الكود المرسل بدون إضافة Dim result as

بدون متغيرات لان الرسالة دى بيتم توليدها من برنامج وجدتي علي الموقع ولا أستطيع التعديل علية

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

وعدد الازرار وهو بينتج الكود اريد التعديل علي الكود كما هو هل هذا ممكن

البرنامج موجود فى هذا الرابط 

 

 

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

[Foksh]

10 ساعات مضت, jo_2010 said:

اريد التعديل علي الكود كما هو هل هذا ممكن

بدل كلمة Undo ، اجعلها Exit Sub فقط .