在用户按消息框的“是”按钮之后显示的Combobox

Question

If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then
MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation")
If MSG4 = vbYes Then
Related_to.Show
If Me.Related_to.Value = Royalties Then
MsgBox ("Whatever")
End If

Answer 1

使用更新的代码，您需要进行以下调整。如果这不是您想要的，请更新您的问题以包括一个实际的问题。

Sub Test()
    If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then
        MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation")
    ElseIf MSG4 = vbYes Then
        Related_to.Show
    ElseIf Me.Related_to.Value = Royalties Then
        MsgBox ("Whatever")
    End If
End Sub

Answer 2

sub Account_validation_issued（）

MSG1 = MsgBox("Is the invoice X Related?", vbYesNo, "Account Validation")
MSG2 = MsgBox("Is the invoice ECD?", vbYesNo, "Account Validation")
MSG3 = MsgBox("Is the invoice Project related?", vbYesNo, "Account Validation")
If MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbYes Then
MsgBox ("Unvalid answer combiantion")
ElseIf MSG1 = vbYes And MSG2 = vbYes And MSG3 = vbYes Or MSG1 = vbYes And MSG2 = vbNo And MSG3 = vbYes Then
MsgBox ("Projects: XXXX")
ElseIf MSG1 = vbYes And MSG2 = vbYes And MSG3 = vbNo Or MSG1 = vbYes And MSG2 = vbNo And MSG3 = vbNo Then
MsgBox ("Projects: XXXX")
ElseIf MSG1 = vbNo And MSG2 = vbNo And MSG3 = vbNo Then
MsgBox ("Projects: XXXX")
ElseIf MSG1 = vbNo And MSG2 = vbNo And MSG3 = vbYes Then
MsgBox ("Unvalid answer combiantion")
ElseIf MSG1 = vbNo And MSG2 = vbYes And MSG3 = vbNo Then
MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation")
Related_to.Show
End If

结束子

private sub userform_error（byval编号为整数，byval描述为msforms.returnstring，byval scode s as Long，byval source，如字符串，byval helpfile，如字符串，byval helpcontext，by byval as by，byval byval canceldisplay as smsflay asmsflay assmsplayssssssssss.returnbooleanss.returnboolean

选择案例me.mycombo案件"特许权使用费"msgbox"确保输入上述目标性能的评论"

    MSG4 = MsgBox("Is the invoice Corporate?", vbYesNo, "Account Validation")
If MSG4 = vbYes And Me.Related_to.Value = Royalties Then
    MsgBox ("Whatever")
End If

结束sub