G
Guest
I have created a custom menubar and have added about 7 menus to the bar. Under each menu I have several commands. The file menu that I have created looses the Print command and Page Setup command when I unselect the "Allow Full Menus" option in the Startup settings of my Access app. I have used the following commands in Access 97 to do the hiding and displaying of menu items but in Access 2003 it will not work. Any ideas on how to accomplish this?
CommandBars("Our-HR").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("&Print ...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("&Print ...").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("Page Set&up...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("Page Set&up...").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("S&end...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("S&end...").Enabled = True
CommandBars("Our-HR").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("&Print ...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("&Print ...").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("Page Set&up...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("Page Set&up...").Enabled = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("S&end...").Visible = True
CommandBars("Our-HR").Controls("File").CommandBar.Controls("S&end...").Enabled = True