[AccessD] more questions on command bars

Susan Harkins harkins at iglou.com
Sat Apr 5 20:03:06 CST 2003


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



More information about the AccessD mailing list