IF-THEN-ELSE调用函数

时间:2017-02-19 14:17:47

标签: vba ms-access

我写了if-else子句,但它的工作不正确,我不知道为什么。 如您所见,我想检查邮件是否已经发送。

If informiert2 = True Then

    If MsgBox("Weitere Benachrichtigung versenden?", vbOKCancel, "Kunde bereits informiert") = vbOK Then

        MsgBox "Test"
        Call sendemailKunde

    End If

Else

    Call sendemailKunde

End If

如果邮件已经发送,我想要一个弹出窗口,询问您是否要再次发送邮件。如果您点击yes没有任何事情发生,而不是MsgBox "Test",但函数sendemailKunde将不会被调用。

如果邮件尚未发送,则正常调用该函数并正常工作。

2 个答案:

答案 0 :(得分:1)

您可以稍微改变代码:

If informiert2 = True Then
    If MsgBox("Weitere Benachrichtigung versenden?", vbOKCancel, "Kunde bereits informiert") = vbOK Then
        informiert2 = False
    End If
End If
If informiert2 = False Then
    Call sendemailKunde
End If

答案 1 :(得分:1)

@Gustav的回答看起来不错。如果您不想更新变量informiert2,即后来使用它,那么您可以使用下面的代码。

from source.settings import settings
print(settings.MY_TOKEN)