Multiple Optionals in A Procedure Header

[MikeG]

I have the following code:

Sub(Optional Answer="Yes")

Could someone tell me the format for adding another variable as optional?

Thanks,

MikeG

 

[Marcelo Branco]

Hi Mike

Maybe something like this

Sub aTest(Optional answer As String = "Yes", Optional name As String = "Peter")
    
    If answer = "Yes" Then
        MsgBox name & " answered the question"
    Else
        MsgBox name & " has not answered the question"
    End If
    
    
End Sub

Sub bTest()
    Call aTest(, "John")
    Call aTest("Yes")
    Call aTest("No", "John")
    Call aTest
End Sub

M.

 

[MikeG]

Hi Mike

Maybe something like this

Sub aTest(Optional answer As String = "Yes", Optional name As String = "Peter")
    
    If answer = "Yes" Then
        MsgBox name & " answered the question"
    Else
        MsgBox name & " has not answered the question"
    End If
    
    
End Sub

Sub bTest()
    Call aTest(, "John")
    Call aTest("Yes")
    Call aTest("No", "John")
    Call aTest
End Sub

M.

Thanks very much,

Mike

 

[Marcelo Branco]

Thanks very much,

Mike

You are welcome and thanks for the feedback

M.