Make your own free website on Tripod.com
Set Default Value In Subs/Functions

Press on command1 to call the sub with the parameter 5, and command2 to call the sub with no parameter. In the second case, the parameter value will be the default value, that was set to be 1.

Preparations

Add 2 Command Buttons (named Command1 and Command2)

Form Code

Private Sub Command1_Click()
    MySub (5)
End Sub

Private Sub Command2_Click()
    MySub
End Sub

Sub
MySub(Optional MyParameter As Long = 1)
    MsgBox ("The parameter value is: " & MyParameter)
End Sub

Go Back