ACC: How to Call Functions by Using a String Variable

MORE INFORMATION

1. Create a new, blank database.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

3. Type the following procedures:
   
   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 CallMyArray() function creates an array of strings, then
         ' loops, using the Eval() function, to call each element of the
         ' array.
         '------------------------------------------------------------------
         Function CallMyArray ()
            Dim MyArray$(), i as Integer, x as Integer
   
             For i = 0 To 2
                ReDim Preserve MyArray$(i)
                MyArray$(i) = "MyFunc" & i & "(" & i & ")"
             Next i
   
             For i = 0 To 2
                 x = Eval(MyArray(i))
             Next i
         End Function
   
         '------------------------------------------------------------------
         '    The first function called by CallMyArray().
         '------------------------------------------------------------------
         Function MyFunc0 (nParam)
            MsgBox "This is function: " & nParam
         End Function
   
         '------------------------------------------------------------------
         '    The second function called by CallMyArray().
         '------------------------------------------------------------------
         Function MyFunc1 (nParam)
            MsgBox "This is function: " & nParam
         End Function
   
         '------------------------------------------------------------------
         '    The third function called by CallMyArray().
         '------------------------------------------------------------------
         Function MyFunc2 (nParam)
            MsgBox "This is function: " & nParam
         End Function
   						

4. Type the following line in the Debug Window (or Immediate Window in versions 1.x and 2.0):

          ? CallMyArray()