Visible by Tag (1 Viewer)

[steve1111]

Hello all,

I am wondering if I may have something set wrong in Access as setting the visible property is not working correctly. I have used this method in other DBs but is giving me issues, it is not setting the controls to visible.

Dim ctl As Control

For Each ctl In Me.Controls
    If ctl.Tag = "tHide" Then
        ctl.Visible = True
    End If
Next

pretty straightforward and maybe I am missing something simple. :banghead:

Thanks

 

[Ranman256]

you example says :
if HIDE then make visible. (sounds backwards)
Maybe the code is:

For Each ctl In Me.Controls
    If ctl.Tag = "tHide" Then  ctl.Visible = false
Next

or:
ctl.Visible = ctl.Tag <> "tHide"

 

[steve1111]

No that is not the case, "tHide" is just the arbitrary name on the controls I wish to hide and unhide. I am getting this lack of expected response in several places in my database regardless on the tag name. The code will work correctly if I list out each control I want to alter, but not when looping by tag name....

 

[Minty]

The controls don't have focus do they ?
You can't alter visibility if the control has focus from memory.

 

[Minty]

Wait a mo. Remove the Me.

For Each ctl In Controls
    If ctl.Tag = "tHide" Then
        ctl.Visible = True
    End If
Next

 

[steve1111]

Hi Minty,

Nothing has the focus. I think I narrowed it down to an issue using Peter's Software Shrinker Stretcher, the third party software to dynamically resize forms and am reaching out that way. When I comment out his open code, my code is working perfectly!

 

[steve1111]

For those who are also using Peter's Software SS, your tags will work if you change the code to:

For Each ctl In Controls
    [COLOR="Red"]If ctl.Tag Like "*tHide*" Then[/COLOR]
        ctl.Visible = True
    End If
Next

 

[isladogs]

For those who are also using Peter's Software SS, your tags will work if you change the code to:

For Each ctl In Controls
    [COLOR="Red"]If ctl.Tag Like "*tHide*" Then[/COLOR]
        ctl.Visible = True
    End If
Next

You also need to comment out the End If line or it won't compile

 

[Gasman]

How is the code meant to know which controls to work on, if you do that?

For those who are also using Peter's Software SS, your tags will work if you change the code to:

For Each ctl In Controls
    [COLOR=Red]If ctl.Tag Like "*tHide*" Then[/COLOR]
        ctl.Visible = True
    End If
Next

 

[steve1111]

I believe it is buried in the code for the Shrinker Stretcher to clear all tags except when in that format. I am not sure how it works it out but I have verified on several sections of the code that this is the fix when using this product.

 

[isladogs]

I believe it is buried in the code for the Shrinker Stretcher to clear all tags except when in that format. I am not sure how it works it out but I have verified on several sections of the code that this is the fix when using this product.

To repeat Gasman's point in another way:

Your code will now make ALL controls visible.
If you still want to leave some hidden, you will need to amend the code further.