menubar - disable specific menu based on condition 1

[DH]

Is it possible to disable a specific item/task on a menubar based on a condition?

Thanks.

 

[PaulF]

yes, just add this code to whatever event you use to test for the condition. You need to know the name of the MenuBar and the Name or Caption of the Item on the MenuBar.

Dim cbr As CommandBar
Dim cbrCtl As CommandBarControl
' Set a reference to the Access menu bar
Set cbr = CommandBars("CommandBarName&quot
Set cbrCtl = cbr.Controls("CommandBarCaptionGoesHere&quot
' Set the Enabled Property to False
cbrCtl.Enabled = False
'or set it to True
' cbrCtl.Enabled = True

 

[PaulF]

Also, ensure that you set a reference to the
Microsoft Office 8.0 Object Library (or 9.0)

PaulF

 

[DH]

Thanks Paul - your example worked great.

How can I then enable/disable only one item from the drop down list of a menu on a menubar?

For example:

I have a menu bar named "MenuBarName" with a caption named "Caption" and then I have another caption I guess named "SubCaption" that appears as one of many items in the "Caption"

MenuBarName>Caption>Subcaption

I have tried experimenting with this but might not be on the right track. Is there a SubControls or something?

Thanks Again.

 

[zink421]

Private Sub form_load()
Dim cbr As CommandBar
Dim cbrCtl As CommandBarControl
' Set a reference to the Access menu bar
Set cbr = CommandBars("menubar&quot
Set cbrCtl = cbr.Controls("menucaption&quot.Controls("submenucaption&quot


' Set the Enabled Property to False
cbrCtl.Enabled = True

'or set it to True
' cbrCtl.Enabled = True


End Sub

 

[Marryp]

How do you disable all the items under menucaption?

How do you do a for...loop statement?