IF ... then statement in Access VBA

Question

Я тестирую свое понимание в инструкции if then, я написал небольшую вещь внизу, но когда я нажал пробег, ничего не произошло. Я ожидал появления msgbox, спрашивающего меня, хочу ли я бросить курить или нет и дать мне выбор. Я пропустил что-нибудь, пожалуйста. Благодаря

Sub testifthenelse(bQuit As Boolean) 
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 

Answer 1

вы должны вызвать его из другого подразделам:

Sub main() 
    Dim bQuit As Boolean 

    testifthenelse bQuit 
End Sub 

в то время, если вы хотите запустить и протестировать его «сам по себе», а затем сделать аргумент опциональный

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