MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Esconder Painel de Navegação

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty [Resolvido]Esconder Painel de Navegação

    Mensagem  Luís Antunes 5/4/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
    bigfill
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Re: [Resolvido]Esconder Painel de Navegação

    Mensagem  bigfill 5/4/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
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Re: [Resolvido]Esconder Painel de Navegação

    Mensagem  Avelino Sampaio 5/4/2016, 21:53

    Olá!

    Veja se atende:

    http://www.usandoaccess.com.br/dicas/desabilitando-painel-de-navegacao.asp?id=1

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Esconder Painel de Navegação

    Mensagem  Luís Antunes 5/4/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
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Re: [Resolvido]Esconder Painel de Navegação

    Mensagem  FabioPaes 5/4/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...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Esconder Painel de Navegação

    Mensagem  Luís Antunes 5/4/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
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Re: [Resolvido]Esconder Painel de Navegação

    Mensagem  FabioPaes 5/4/2016, 23:35

    Teste em um BD novo, apenas com essas duas linhas que te passei... Uma em cada Botão... Aqui funciona instantaneamente...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Esconder Painel de Navegação

    Mensagem  Luís Antunes 5/4/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
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Esconder Painel de Navegação

    Mensagem  Luís Antunes 6/4/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
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Esconder Painel de Navegação Empty Re: [Resolvido]Esconder Painel de Navegação

    Mensagem  Luís Antunes 7/4/2021, 18:17

    Boas
    Encontrei este código que esconde o Access:

    Código:
    Public Function fncOcultarAccess()
    Dim lngHwnd As Long
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, 0, LWA_ALPHA
    End Function

    Luís Antunes

      Data/hora atual: 16/6/2021, 22:22