MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Esconder Painel de Navegação

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    Registrado : 05/04/2016

    Esconder Painel de Navegação

    Mensagem  Luís Antunes em Ter 05 Abr 2016, 21:14

    Tenho feito algumas buscas sobre este assunto e só consegui encontrar códigos para esconder os menus
    DoCmd.ShowToolbar"Ribbon", acToolbarNo este é código que utilizo.
    Não haverá um código para esconder o Painel de navegação
    interessa-me que seja, especificamente, em código.

    Antecipadamente grato

    Luís Antunes

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

    Re: Esconder Painel de Navegação

    Mensagem  bigfill em Ter 05 Abr 2016, 21:19

    Luis, veja se seria algum desses.
    Ainda não testei, mais acredito esta ai.

    Desabilita tudo:

    Public Function DesabilitaTudo()
    On Error GoTo Err_DesabilitaTudo

    DoCmd.ShowToolbar "Menu Bar", acToolbarNo
    DoCmd.ShowToolbar "Database", acToolbarNo
    DoCmd.ShowToolbar "Relationship", acToolbarNo
    DoCmd.ShowToolbar "Table Design", acToolbarNo
    DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
    DoCmd.ShowToolbar "Query Design", acToolbarNo
    DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
    DoCmd.ShowToolbar "Form Design", acToolbarNo
    DoCmd.ShowToolbar "Form View", acToolbarNo
    DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
    DoCmd.ShowToolbar "Report Design", acToolbarNo
    DoCmd.ShowToolbar "Print Preview", acToolbarNo
    DoCmd.ShowToolbar "Toolbox", acToolbarNo
    DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
    DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
    DoCmd.ShowToolbar "Macro Design", acToolbarNo
    DoCmd.ShowToolbar "Utility 1", acToolbarNo
    DoCmd.ShowToolbar "Utility 2", acToolbarNo
    DoCmd.ShowToolbar "Web", acToolbarNo
    DoCmd.ShowToolbar "Source Code Control", acToolbarNo
    DoCmd.ShowToolbar "Visual Basic", acToolbarNo
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Application.CommandBars.DisableAskAQuestionDropdown = True

    Exit_DesabilitaTudo:
    Exit Function

    Err_DesabilitaTudo:
    If Err.Number = 2094 Then
    Resume Next
    Else
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_DesabilitaTudo
    End If

    End Function

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Esconder Painel de Navegação

    Mensagem  Avelino Sampaio em Ter 05 Abr 2016, 21:53

    Olá!

    Veja se atende:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    Registrado : 05/04/2016

    Esconder Painel de Navegação

    Mensagem  Luís Antunes em Ter 05 Abr 2016, 22:14

    Pus o código associado a um botão clik, acontece que que só esconde os menus.
    Quanto à macro autoexec tem um incoveniente, preciso sempre de sair da BD para aceder ao painel de navegação
    O que eu pretendo é aceder ou não aos menus e painel através de dois botões no form Activar/ Desactivar.

    Luís Antunes

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2320
    Registrado : 14/08/2013

    Re: Esconder Painel de Navegação

    Mensagem  FabioPaes em Ter 05 Abr 2016, 22:57

    Se o codigo passado pelos colegas a cima Faz o que pretende, e desabilita tudo que precisa... Para Habilitar use o mesmo Código, mudando apenas o Final para Yes.
    ex:

    Botao Desabilita
    DoCmd.ShowToolbar"Ribbon", acToolbarNo

    Para

    Botao Habilita
    DoCmd.ShowToolbar"Ribbon", acToolbarYes

    Isso determina se esta ou não ativo...

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    Registrado : 05/04/2016

    Esconder Painel de Navegação

    Mensagem  Luís Antunes em Ter 05 Abr 2016, 23:26

    Foi o que eu fiz num código "no" noutro "Yes" Sem aspas é claro.
    Se o código de bigfill funciona só se for em módulo.
    Vou experimentar com módulo

    Luís Antunes


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2320
    Registrado : 14/08/2013

    Re: Esconder Painel de Navegação

    Mensagem  FabioPaes em Ter 05 Abr 2016, 23:35

    Teste em um BD novo, apenas com essas duas linhas que te passei... Uma em cada Botão... Aqui funciona instantaneamente...

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    Registrado : 05/04/2016

    Esconder Painel de Navegação

    Mensagem  Luís Antunes em Ter 05 Abr 2016, 23:49

    Já pus o código em módulo um call DesactivarTudo no botão, apenas escondeu os menus.
    Utilizo o office 2007 e o computador é de 64 bits
    O facto de não funcionar a desactivação do painel de navegação terá haver com a versão
    do office ou terá algum outro motivo?


    Luís Antunes

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    Registrado : 05/04/2016

    Esconder Painel de Navegação

    Mensagem  Luís Antunes em Qua 06 Abr 2016, 00:15

    Fiz o que me aconselhou criei uma bd nova e importei o módulo com o código,
    criei um Form com dois botões para activar e desactivar. não funcionou com o painel
    Vou envia-lo em anexo para saber se nos vossos pcs funciona

    Luís Filipe

      Data/hora atual: Qua 07 Dez 2016, 20:14