Júlio Battisti Livros e Cursosa sua sala de aula na internet

Sub criandoMenus()

   Dim cmdBar   As CommandBar

   Dim mnu      As CommandBarPopup

   Dim btn      As CommandBarButton

End Subp

Sub criandoMenus()

   Dim cmdBar   As CommandBar

   Dim mnu      As CommandBarPopup

   Dim btn      As CommandBarButton

   On Error Resume Next 'Continua a execução mesmo que haja um erro

   'Deleta o menu anterior se ele existir

   CommandBars("Criando Menus").Delete

    'Adiciona o objeto cmdBar a coleção de barras de comando do Access

    'A barra adicionada está posicionada como "msoBarFloating"

    'Outras opções de posicionamento incluem:

    'msoBarTop, msoBarLeft, msoBarRight e msoBarBottom

    Set cmdBar = CommandBars.Add(Name:="Criando Menus", _

                 Position:=msoBarFloating)

    'Adiciona um botão a barra de comando cmdBar

    Set btn = cmdBar.Controls.Add(Type:=msoControlButton)

       btn.FaceId = 326 ‘Define a figura a ser mostrada no botão

    'Adiciona um "menu" a barra de comando cmdBar

    Set mnu = cmdBar.Controls.Add(Type:=msoControlPopup)

      With mnu

        .Caption = "meu menu" 'Define o nome a ser exibido no menu

      End With

    Set btn = mnu.Controls.Add(Type:=msoControlButton)

       btn.FaceId = 926

    Set mnu = cmdBar.Controls.Add(Type:=msoControlPopup)

       With mnu

         .Caption = "Seu menu"

       End With

    cmdBar.Visible = True 'Exibe a barra de comando cmdBar

  End Sub