passing a control name as as variable

[newbieX]

I use the following code and it works but I am trying to convert the repeating code into a function
The function in a module

Sub ModkMilk(FormName)

Dim ctl As Control

If Forms(FormName).milk = -1 Then
    For Each ctl In Forms(FormName).Controls
        If ctl.Tag = "milk" Then
            ' do stuff
End Sub

Sub ModCheese(FormName)

Dim ctl As Control

If Forms(FormName).cheese = -1 Then
    For Each ctl In Forms(FormName).Controls
        If ctl.Tag = "cheese" Then
            ' do same stuff

Code on form:

Private Sub Form_Current()

    Dim FormName As String
    FormName = Me.Name
    
    ModMilk (FormName)
    ModCheese(FormName)
    ' etc
End Sub

I have this code repeated for each product checked. The milk variable can be swapped out for cheese, carrots, onions, green_beans, etc.

I want to make it a function that passes both the FormName and the ProductName (which is referenced twice as tag matches product control name).

Tried below but it bombs:

Sub ModProduct(FormName), (ProductName)

Dim ctl As Control

If Forms(FormName).ProductName = -1 Then       'bombs here
    For Each ctl In Forms(FormName).Controls
        If ctl.Tag = "ProductName" Then
            ' do stuff

Private Sub Form_Current()

    Dim FormName As String
    Dim ProductName As String
    FormName = Me.Name
    
    ModProduct(FormName), ("milk")
    'ModProduct(FormName), ("cheese")
    'ModProduct(FormName), ("carrots")
    'ModProduct(FormName), ("onions")
    ' etc
End Sub

If I change function code to below it works, so obviously I am having a hard time passing the variable to a control name.:

If Forms(FormName).milk = -1 Then
    For Each ctl In Forms(FormName).Controls
        If ctl.Tag = "ProductName" Then
            ' do stuff

Also, is there a way to pass all the variables as a list in a single command, such as

MyList = ("milk", "cheese", "carrots", "onions")
ModProduct (FormName), (MyList)

As that would be even more awesome.

Thanks.

[drexasaurus]

Have you tried:
Forms(FormName).Controls(ControlName)
ControlName being the variable in the above example. You might want to reference the actual attribute you want like Controls(ControlName).value.

As far as passing multiple values as one, look up vba and arrays, or paramarrays on google (paramarrays being vba's version of a variable number of parameters, handled as an array in the sub/function). You could also split a string with commas, but I generally advise against that if possible.

[June7]

A procedure can have multiple arguments, separate them with comma. If data type not explicitly declared, they will be Variant.

Sub ModProduct(FormName, ProductName)

Then pass values to the arguments when procedure is called:

Static literal text input:
Call ModProduct("form name", "product name")

Variable input:
Call ModProduct(Me.Name, Me.textboxname)

Why would you need multiple products passed in one call? Code could build and pass a comma separated string and then parse the items into an array then loop through array and do something with each element.

[newbieX]

Have you tried:
Forms(FormName).Controls(ControlName)
ControlName being the variable in the above example. You might want to reference the actual attribute you want like Controls(ControlName).value.

Adding the keyword "Controls" did the trick. Many thanks.

As far as passing multiple values as one, look up vba and arrays, or paramarrays on google (paramarrays being vba's version of a variable number of parameters, handled as an array in the sub/function). You could also split a string with commas, but I generally advise against that if possible.

I imagine I will have to loop through it also so that each time ProductName changes, it runs through the code again. I would rather call the function once per form than 10 times per form.

My brain hurts and my mind is mush. I will shelve learning about arrays for next week. I'll call each product separately for now.

Again, thank you.