You can't hide a control that has the focus

[TheSearcher]

cmb_Client is an acComboBox - but shouldn't this code prevent me from getting the "You can't hide a control that has the focus" error?

For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
        ctl.Value = Null
        cmb_Client.SetFocus
        ctl.Visible = False
    End If
Next ctl

 

[tvanstiphout]

The loop eventually arrives at cmb_Client. You then set focus to it, and hide it. Kaboom!
One idea is to create a 1x1 pixel command button, transparent, and set focus to it before entering the loop.

 

[theDBguy]

cmb_Client is an acComboBox - but shouldn't this code prevent me from getting the "You can't hide a control that has the focus" error?

For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
        ctl.Value = Null
        cmb_Client.SetFocus
        ctl.Visible = False
    End If
Next ctl

Which version of Access are you using? I thought recent versions of Access allow hiding controls while still in focus?

 

[TheSearcher]

DBGuy - Microsoft 365 MSO (Version2402 Build 16.0.17328.20648) 32 bit

 

[theDBguy]

DBGuy - Microsoft 365 MSO (Version2402 Build 16.0.17328.20648) 32 bit

Thanks. I'm using Build 2409 and what works for me is disabling the control first before hiding it.

 

[isladogs]

Which version of Access are you using? I thought recent versions of Access allow hiding controls while still in focus?

Not yet . . . though this functionality has been requested.

However, there is a simple workaround. Disable the control and it can then be hidden without first moving the focus.
See my article:

Click Me And I Disappear!

In older versions of Access up to A2010, you could only disable, lock or hide controls if they did not have the focus. In recent years, that limitation was changed . . . with some interesting side effects!

www.isladogs.co.uk

 

[TheSearcher]

Thanks everyone. It was easy to find a workaround. I'm just curious why my code in my original post didn't work. It seems to me that it should have worked.

 

[isladogs]

@tvanstiphout explained the reason why it failed back in post #2

 

[cheekybuddha]

I'm just curious why my code in my original post didn't work. It seems to me that it should have worked.

A better test:

' ...
    If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) _
    And ctl.Name <> "cmb_client" Then
' ...

 

[TheSearcher]

@tvanstiphout explained the reason why it failed back in post #2

Yes. I see that now. Thanks everyone!