[Resolvido]Exibir e ocultar painel de navegação

Galera boa noite!

To com o seguinte problema:

No código abaixo eu consigo criar um evento de pedir senha ao abrir um formulário:

Public Function fncsenha()
If InputBox("DIGITE A SENHA DO ADMINISTRADOR ", "Senha de acesso") <> "flavio" Then
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Erro"
Else
DoCmd.OpenForm "MENU PRINCIPAL", , , , acFormAdd
MsgBox "BEM VINDO FLAVIO"
End If
End Function

Gostaria de saber como complementá - lo afim de abrir também o painel de navegação que fica oculto, pois criei um formulário onde o usuário escolhe em restrito e administrador conforme segue:

No uso restrito são ocultadas as ribbons, barra de acesso de rápido e painel de navegação
No uso administrador abre ribbons, barra de acesso rápido e não abre o painel de navegação

Desde ja agradeço

Título do tópico editado afim de ficar mais claro e mais fácil para outros pesquisarem. "Ajuda com código" não é um título descritivo, uma vez que uma grande porcentagem das dúvidas aqui postas são com códigos. Imagina se todo mundo colocasse um título assim, concordas?

Quando à dúvida, aqui no fórum temos exemplos de exibir e ocultar a janela do Access. Talvez possa ajudá-lo.

Veja este meu artigo. Quase no final tem a sua resposta.

http://www.usandoaccess.com.br/dicas/dica16.asp?id=1#inicio

Lembrando que a tecla F11 ativa o painel.

Sucesso!

Bom dia!

Tentei o código, deu o seguinte erro: não posso usar o nome Form_Load(), ao renomear da erro, vi tambem a parte de bloquear mais a idéia e ocultar mesmo

Poderia me dar mais algumas dicas?

Mostre exatamente como escreveu o evento!

No aguardo

tentei esse:

Private Sub Form_Load()

'SelectObject usado para dar o foco ao Painel de Navegação
DoCmd.SelectObject acForm, "MENU PRINCIPAAL", True
'Ocultando janela com o foco
DoCmd.RunCommand acCmdWindowHide

End Sub

e depois esse:

Private Sub Form_Close()

'SelectObject usado para dar o foco ao Painel de Navegação
'Ao dar foco ao painel ele é automaticamente exibido
DoCmd.SelectObject acForm, "MENU PRINCIPAL", True

End Sub

Usei uma macro AutoExec mais não funcionou.


Falar nisso gostaria de comprar seu programa de ribbons mais vi os vídeos umas 3 vezes e não entendi tem suporte se comprar?

Olá!

Então podemos acrscentar o Sendkeys para chamar a tecla F11.

Segue um exemplo. Observe as funções no módulo mod_geral e a macro AutoExec chamando pela função.

Observe que ao executar o BD teste, o painel irá se abrir junto. Feche e abra o formulário e veja o que acontece.

Quanto as ribbons, teras total assessoria.

Sucesso!

Vi o exemplo funcionou direitnho mais por questão de segurança a idéia é a seguinte:

No formulário login com acesso restrito não abre o painel de navegação que fica totalmente fechado
E no administrador ele abre automáticamente
Se eu fizer pela tecla f11 até o usuário restrito consegue ter acesso

Nas opções do access eu desabilito painel de navegação e outro código eu desabilito todas as ribbons sendo que com o código citado com a senha certa eu consigo habilitar as ribbons por compelto e abrir o formulário principal, mais o painel de navegação tem que voltar nas opções e habilitar de novo, se complementando o código eu abrisse ele direto ficaria melhor.

Resolvi a questão com o seu exemplo Avelino veja como ficou neste link:

http://maximoaccess.forumeiros.com/t7547-auto-completar-campos-em-formularios