Susan Harkins
harkins at iglou.com
Sat Apr 5 22:44:23 CST 2003
There are no custom controls or toolbars -- I'm working strictly with the application menu bar "Menu Bar" and I've not created any new menu items for it. Thanks -- that's kind of an insightful answer you gave though. :) SUsan H. > Susan, > > I will guess that you created new CommandBarControls > without setting the .Caption property. Try hovering your > mouse over the ActiveMenuBar and you may see that > the Custom Popup #### is there. > > If you had set Temporary to true then just closing the > database will remove them. Otherwise, right click on > the ActiveMenuBar, click Customize and then right- > click on the captionless buttons and click Delete. > > Michael R. Mattys > www.mattysconsulting.com > > ----- Original Message ----- > From: "Susan Harkins" <harkins at iglou.com> > To: <AccessD at databaseadvisors.com> > Sent: Saturday, April 05, 2003 9:03 PM > Subject: [AccessD] more questions on command bars > > > > The following function lists the commands on the active menu bar -- my > > question is about the visible/invisible commands? If you remove the If > that > > checks for the Visible property you get a huge list of commands, some I > > don't even recognize. What are these invisible commands? > > > > Susan H. > > > > > > Function NameMenuCommands() > > Dim menubar As CommandBar > > Dim menucommand As CommandBarPopup > > 'Dim menucommand As CommandBar > > Set menubar = CommandBars.ActiveMenuBar > > For Each menucommand In menubar.Controls > > If menucommand.Visible = True Then > > Debug.Print menucommand.CommandBar.Name > > End If > > Next > > End Function > > > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > >