ACC: How to Pass an Array as an Argument to a Procedure

MORE INFORMATION

   Function YourFunctionName (InArray() As String) As Integer

   Sub YourSubName (InArray() As String)
				

   Result = YourFunctionName(YourArrayName())

   YourSubName YourArrayName()
				

Example

1. Create a new module and enter the following code:
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

    '---------------------------------------------------------------
         'GLOBAL DECLARATIONS SECTION
         '---------------------------------------------------------------
         Option Explicit
   
         '---------------------------------------------------------------
         'The function LoadArray() loads an array called MyArray
         'with string values. After loading the array, the function
         'calls a procedure that displays each array element
         'in a message box.
         '---------------------------------------------------------------
   
         Function LoadArray()
            Dim i as Integer
            ReDim MyArray(10) As String
            For i = 1 to 10
               MyArray(i) = "Test Value: " & i
            Next i
            DisplayArray MyArray()
         End Function
   
         '---------------------------------------------------------------
         'LoadArray() Sub Procedure
         '---------------------------------------------------------------
   
         Sub DisplayArray (InArray() As String)
            Dim i as Integer
            For i = 1 to UBound(InArray)
               MsgBox InArray(i)
            Next i
         End Sub
   
   						

2. On the View menu, click Debug Window (or Immediate Window in versions 1.x and 2.0)
3. Type the following line, and then press ENTER:

   ? LoadArray()