• Home
 · 
• Coding Standards
 · 
• Returning Arrays From Functions

Returning Arrays From Functions

The following code demonstrates how to call a function and return multiple results in an array.

Rate Returning Arrays From Functions

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

For example: You could have a function that returns error information which is called like this:




Private Sub MySub()


On Error GoTo err_handler


'....code here that rasies an error


err_handler:


If Err.Number <> 0 Then


 Dim Tmp() As String


 Tmp = ErrorHandler


 MsgBox "Error Description: " & Tmp(0) & " Error Number #:" & Tmp(1) & " Source: " & Tmp(2)

 
Erase Tmp


End If
End Sub








Public Function ErrorHandler() As String()


Dim Errors(0 To 2) As String


 Errors(0) = Err.Description


 Errors(1) = Err.Number


 Errors(2) = Err.Source


 Err.Clear


 ErrorHandler = Errors


End Function