Inserting Default Values When Parameters Are Missing : Function Parameter « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Function Parameter

Inserting Default Values When Parameters Are Missing

 
Function ReturnInit2(ByVal strFName As String, _
       Optional ByVal strMI, Optional ByVal strLName)
    If IsMissing(strMI) Then
        strMI = "A"
    End If

    If IsMissing(strLName) Then
        strLName = "Roman"
    End If

    ReturnInit2 = strLName & "," & strFName & " " & strMI
End Function
Sub DefaultPara()
    msgBox ReturnInit2("A", , "B")
End Sub








Related examples in the same category

1.Parameters
2.Writing a Function Procedure with Arguments
3.Pass string value through Parameters
4.Optional Parameters
5.Default value parameters
6.Substitute a default value if an optional parameter is not provided
7.Named parameters
8.Using the Select Case Statement to check the function parameter
9.Passing Arrays as Parameters
10.Passing by Reference Versus Passing by Value
11.Pass by value
12.Illustrate a reason why you might want to pass a parameter by reference
13.Optional Parameters: Building Flexibility into Functions
14.Accommodating for Missing Parameters in Your Code
15.Named Parameters: Eliminate the Need to Count Commas
16.Pass array parameter to a function
17.Double type parameter
18.Object parameter