Reference control of the from from function

[Timaxusa]

Hi all! Have a question. i used this code for a long time within a form and works fine:
Dim Ctl As control
For Each Ctl In Controls
If Ctl.Tag = "s" Then
Ctl.visible = False
End If
Next Ctl
When I'm trying to use it in Function outside of the form, I get an error. Need to reference particular form I guess


How would I reference "Production" form for example from function?

Thank you!

[orange]

Is this code in some form or control event?
Show us the whole procedure ---from sub to end.

To reference controls on current form you would use Me.Controls.
We need to see where this is being done.

[CJ_London]

How would I reference "Production" form for example from function?

two possible ways, use screen.activeform, but this only relates to the main form, not subforms.

the other is to pass the form as a parameter

function changeform(frm as form)
Dim Ctl As control
    For Each Ctl In frm.Controls
        ...
        ...

it could be called by putting

=changeform([FORM])

against the form open event (where it says Event Procedure)

or called from within the form to be changed

changeform Me

[Timaxusa]

I modified code like this and it works!
Dim Ctl As control
For Each Ctl In Forms![ProductionMain].Form.Controls
If Ctl.Tag = "s" Then
Ctl.visible = False
End If
Next Ctl

Thank you all for your help!

[isladogs]

For generic solution to manage controls in any form based on their tag value see this example database
https://www.access-programmers.co.uk...d.php?t=293439
The code includes functions to manage the following:
-visible/hidden , locked/unlocked, enabled/disabled

[Timaxusa]

Thank you very much for your help! All worked perfectly fine with modified code.