IF ....然後在Access VBA語句

Question

我正在測試我對if語句的理解，我在下面寫了一點東西，但是當我點擊運行時，什麼也沒有發生。我期待一個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