VBA msgBox - vbYes 不断调用错误的子答案

【问题标题】：VBA msgBox - vbYes keeps calling wrong subVBA msgBox - vbYes 不断调用错误的子
【发布时间】：2015-08-27 13:59:46
【问题描述】：

如果我单击“是”，VBA 会继续执行函数 Mandate？我做错了什么？

Public AutoDate As Date
Public NewDate As String

Public Sub GetDate()  ' DATUM BEPALEN
    AutoDate = Date - 1
    MsgBox (AutoDate), (vbYesNo), ("Datum")
    Dim Response As VbMsgBoxResult
        If Response = vbYes Then
            NewDate = AutoDate
            Call DeleteDate
        Else    ' No
            Call ManDate
        End If
End Sub

【问题讨论】：

标签： ms-access vba call msgbox

【解决方案1】：

您尚未将 MsgBox 的结果分配给 Response。
也不确定 VbMsgBoxResult 是否是该实例中的有效数据类型。

尝试以下任何一种：

Public Sub GetDate()  ' DATUM BEPALEN

    AutoDate = Date - 1

    If MsgBox(AutoDate, vbYesNo, "Data") = vbYes Then
        NewDate = AutoDate
        Call DeleteDate
    Else    ' No
        Call ManDate
    End If

End Sub

或

Public Sub GetDate()  ' DATUM BEPALEN

        Dim Response As Long

        AutoDate = Date - 1
        Response = MsgBox(AutoDate, vbYesNo, "Data")

        If Response = vbYes Then
            NewDate = AutoDate
            Call DeleteDate
        Else    ' No
            Call ManDate
        End If

    End Sub

【讨论】：

快速检查后，您可以在第二个示例中将 Response 设置为 VbMsgBoxResult 类型 Dim Response = VbMsgBoxResult 它将返回 6 表示是，7 表示否。

【解决方案2】：

您需要检索响应作为 MsgBox 函数的返回：

Dim Response as Integer
Response= MsgBox( AutoDate, vbYesNo, "Datum")

现在你可以通过 if-test Response 来决定做什么。

【讨论】：

【解决方案3】：

您需要一个变量来捕获响应...

Dim ans As Integer
ans = MsgBox("hello", vbYesNo, "Datum")
If ans = vbYes Then
   MsgBox "Yes"
Else
   MsgBox "No"
End If

【讨论】：