Question

我正在测试我对if then语句的理解，我在下面写了一些小东西，但当我点击时，没有任何事情发生。我期待一个msgbox会出现问我是否要退出并让我选择。我有没有想念。感谢

Error: [ng:areq] Argument 'MyAppController' is not a function, got undefined

Answer 1

你必须从另一个子语言中调用它：

Sub main()
    Dim bQuit As Boolean

    testifthenelse bQuit
End Sub

同时，如果你想运行并测试它自己＆＃34;然后使参数可选

Sub testifthenelse(Optional bQuit As Variant)
    Dim s As String

    s = "Do you want to quit?"
    If MsgBox(s, vbYesNo, "Quite?") = vbYes Then
        bQuit = True
    Else
        bQuit = False
    End If
End Sub

在Access VBA中的IF .... then语句

1 个答案: