Passing an array into a module subprocedure

[STPMB]

Hello,

I am having trouble passing a control array into a sub procedure contained in a module. I am getting a combile error 'ByRef argument type mismatch error.

I have code similar to below.

In the main form:
DIM modmanfields(7) as Control
Call subprocedure(arg1,arg2,arg3) 'where arg2 is the array being passed into the subprocedure.

in the subprocedure module:
the subprocedure is defined as
Public sub(arg1, arg2 as Containedcontrols, arg3)

Appreciate any comments.

 

[WarriorPrincess]

In the Subprocedure, try: arg2() as control

 

[STPMB]

that wroks fine now I am having trouble loading the array with the control name. When i use the set command with the control name the array is being filled with the control value not the actual name. What's the method used to load the array with a control name so that the subprocedure knows the parm is a control.

 

[WarriorPrincess]

If you want the arg2 paramater to be an array of controls, then you need to load the CONTROLS into the array and not the NAME of the controls. So do something like this. This will list out the names of each control on the form.

Private Sub cmdDoit_Click()

Dim s() As Control
Dim n As Integer
Dim sControl As Control

n = 0
For Each sControl In Me.Controls
ReDim Preserve s
Set s = sControl
n = n + 1
Next

Debug.Print Me.Controls.Count
Call ShowIt(s())

End Sub


Sub ShowIt(s() As Control)

Dim n As Integer

For n = LBound(s) To UBound(s)
Debug.Print s.Name
Next

End Sub

This should give you an idea of how to do what you want.