locked
Ocultar menu Access RRS feed

  • Pergunta

  •  

    Boa tarde, pessoal!

     

    Estou terminando um aplicativo em Access e preciso ocultar o menu do programa, deixando o usuário visualizar apenas os formulários. Sei que é possível personalizar os menus através de opções no Access. Mas essa alteração se torna efetiva em toda instância do Access, e eu quero que apenas o meu MDB tenha essa característica. Sei que é possível através de código VB, pois um conhecido uma vez me mostrou, mas não estou conseguindo! Alguém tem alguma dica que possa me ajudar?

     

    Obrigado!

     

    Felipe

    sexta-feira, 3 de agosto de 2007 19:25

Respostas

  • Boa Noite Felipi,

     

    Eu tb já tive essa dúvida, faz assim que dá certo pra resolver seu problema

     

    Application.CommandBars("Menu Bar").Enabled = False

     

    Abraços

     

    Paulo

    sábado, 4 de agosto de 2007 22:09
  • domingo, 5 de agosto de 2007 15:31
    Moderador
  • Use este código para exibir os nomes no debugador:

     

    Sub ListCommandBars()
    Dim i As Integer

    For i = 1 To Application.CommandBars.Count
        Debug.Print Application.CommandBars(i).Name
    Next i

    End Sub

     

    segunda-feira, 6 de agosto de 2007 23:36
    Moderador

Todas as Respostas

  • Boa Noite Felipi,

     

    Eu tb já tive essa dúvida, faz assim que dá certo pra resolver seu problema

     

    Application.CommandBars("Menu Bar").Enabled = False

     

    Abraços

     

    Paulo

    sábado, 4 de agosto de 2007 22:09
  • domingo, 5 de agosto de 2007 15:31
    Moderador
  • Muito obrigado pela dica, pessoal!

     

    Vocês sabem onde posso obter a lista de parâmetros para o comando:

     

    Application.CommandBars(<<menu param>>).Enabled = False

     

    Para que eu consiga desabilitar os outros menus que ficam visíveis, como o de formatação, caixa de ferramentas, banco de dados etc...

     

    Eu tentei usar uns nomes intuitivos mas estavam errados!!!

     

    Valeu, T+!

    segunda-feira, 6 de agosto de 2007 18:14
  • Use este código para exibir os nomes no debugador:

     

    Sub ListCommandBars()
    Dim i As Integer

    For i = 1 To Application.CommandBars.Count
        Debug.Print Application.CommandBars(i).Name
    Next i

    End Sub

     

    segunda-feira, 6 de agosto de 2007 23:36
    Moderador
  • Perfeito!!!

     

     

    Muito obrigado!!!

     

    Abraços!!!

    terça-feira, 7 de agosto de 2007 17:25