2016-12-16 19 views
0

私はif thenステートメントに関する私の理解をテストしていますが、私は下に少し書いたが、実行したら何も起こらなかった。私はmsgboxが、私が終了したいかどうか、私に選択肢を与えたいかどうかを私に尋ねるように見えることを期待していました。私は何かが恋しいと思った。おかげAccess VBAのIF .... thenステートメント

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 

答えて

2

は、あなたが他のサブからそれを呼び出す必要があります:

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 
+0

どうもありがとうございました! –

+0

ようこそ。あなたは答えを受け入れたものとしてマークしたいかもしれません。ありがとうございました! – user3598756

+3

しかし、それをそう呼ぶのはあまり意味がありません。そして、 'bQuit'は依然として_Boolean_として宣言されるべきです。 – Gustav

関連する問題