FindControl property help - what type?

what is the proper code to find this control

Here is the code that builds this control: ID_RUN_LOAD_TABLES

    Set ControlRun = c.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&Run", -1, False)
    With ControlRun.CommandBar.Controls
        .Add xtpControlButton, ID_RUN_LOAD_TABLES, "Load Tables", -1, False
        .Add xtpControlButton, ID_RUN_COMPARE, "Compare", -1, False
        .Add xtpControlButton, ID_RUN_STOP, "Stop", -1, False
        .Add xtpControlButton, ID_RUN_SHOW_LOAD_OPTIONS, "Object Compare Options", -1, False
    End With


this code returns nothing no matter what I do. I have experimented with different property types but nothing works. It is a file menu control

    Set cdjControl = CommandBars.FindControl(xtpBarTypePopup, ID_RUN_LOAD_TABLES)
    If Not cdjControl Is Nothing Then
        cdjControl.Enabled = False
    End If

it is a file menu control

that did the trick. in under 5 minutes response time!

The method Find and FindControl can not find top level menu.

Thanks for SuperMario help!

"for each" is very good.

 

'When you create the control, you must manually set the Id property if this is a top level control like this:

Dim ControlRun as CommandbarControl

Set ControlRun = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&Edit", -1, False)
ControlRun.Id = ID_RUN_LOAD_TABLES

'Then in your execute event you can add something like this to find the control and enable/disable.
Set Control = CommandBars.ActiveMenuBar.FindControl(, ID_RUN_LOAD_TABLES , True)
If Not Control Is Nothing Then
      Control.Enabled = False
End If

When controls are added to a commandbar such as the active menubar,  they can be referenced by the index, which is assigned by the order that the controls were added starting at 1.

So you would need to use the index of the control if you are referencing it directly, for example:
     CommandBars.ActiveMenuBar.Controls(2).Enabled = False
This line of code disabled the second control in the active menubar.  You can use the index of a control once you find it.

Set Control = CommandBars.ActiveMenuBar.FindControl(, ID_RUN_LOAD_TABLES , True)
If Not Control Is Nothing Then
     CommandBars.ActiveMenuBar.Controls(Control.Index).Enabled = False
End If

Hope this helps.


Edited by SuperMario

i never got reply to my last question

I was sovled this problem by my code.

1:Create a list to hold all ID and controls added.

2:Seek the list by ID to found controls one by one.

3:Set Property of controls found.