[Resolvido]Problemas no Menu Principal

Bom Dia!

Gostaria de ajuda no arquivo em anexo, tem uma tela de Menu, que coloquei botões de navegação, porém, quando eu clico em um o outro não desaparece e quando desaparece apresenta um erro.

Outra situação gostaria que as informações nos campos Grupo e Usuário aparecessem na tela inicial com base na minha tbl_user. Já utilizei o AfterUpdate e ao Carregar, ao Abrir e a informação não carregou.

Conto a ajuda para solução do problema.

Grato,

Olá Maurício,

Vê se atende,

Boa tarde,

Só para deixar registrado que há pelo menos dois outros tópicos deste usuário em aberto. É interessante que se finalize os outros tópicos antes de abrir novos.

Cassio,

Não funcionou, continua com o mesmo problema.

Bom dia,

Responda no tópico correto e informe que mensagem aparece.

Mauricio

Teste

Assis,

Ficou Ótimo, você e o cara.

Agora só falta eu o lance do menu quando e clicar na aba movimentos ele aparece o menu e quando eu clicar na aba cadastro some a aba movimentos e aparece a aba cadastro e quando eu clicar no formulário principal ele fecha estes menus.

Caso tenha uma ideia melhor, estou aberto a sugestões.

Desde já agradeço a ajuda.

Olá Mauricio,


O que houve no meu exemplo que te passei? Aqui funfou muito bem. Veja a figura.

Código:


Private Sub Form_Load()
On Error Resume Next
Me.Frm_Escolha_Cadastro.Visible = False
Me.Frm_Escolha_Acesso.Visible = False

Dim sUsuario, nUsuario As String
Dim sGrupoUsuario As String

sUsuario = Forms!Frm_Menu_Principal!txtUser
nUsuario = Nz(DLookup("[Usuário]", "Tbl_Cadastro_User", "[User Rede]= '" & sUsuario & "'"))
sGrupoUsuario = Nz(DLookup("[Grupo de Acesso]", "Tbl_Cadastro_User", "[User Rede]= '" & sUsuario & "'"))

Me.txt_Grupo_Usuario = sGrupoUsuario
Me.txt_Usuario = nUsuario
End Sub

Mauricio

Teste ao mover o mouse sobre o formulário, depois de ter menus aberto.

Só não consigo colocar os menus completos, não mosta tudo.

Se alguém conseguir agradeço

Obrigado

Assis, good guy e CassioFabre,

Muito obrigado pela ajuda, funcionou.

Mestre,

Quando eu estava utilizando o formulário o menu estava funcionamento certinho, porém, após abrir um formulário pelo botaão no menu, o mesmo apresenta um erro "Erro em tempo de execução '2165': Você não pode ocultar um controle que tem foco.

Agradeço a ajuda.

Olá Maurício,

Posta o exemplo que está funcionando para você, mas apresenta este problema. Cassio, posta o link do tópico a que você se refere.

Mestre,

Segue o arquivo anexado abaixo.

Vc verá que as abas funcionaram automaticamente. Clique no Cadastro de Cargo e depois feche o formulário que o erro aparece.

Grato pela atenção e ajuda.

Olá Maurício,

Bem agora já estou entendendo. Você está usando o meu ajuste no código do evento Form_Load e me parece está satisfazendo. Quanto ao erro reportado não aconteceu, mas em vias de dúvida, mudei o foco de saída no fechamento do formulário (Cadastro_Cargo) para o campo (txt_cargo_cons) no evento Form_Unload.

Maurício

Não foi neste menu que eu modifiquei .

O que postei trabalha direito.

Aguardo

Mestres,

Sei que a intenção de ajudar e a melhor do mundo, porém, agora me perdi e não sei para onde vou agora para solucionar esta situação.

Grato pela ajuda.

Olá Maurício,

Tanto o Assis quanto eu só queremos ajudar. Me parece que você aceitou duas soluções. Você só precisa postar qual arquivo que está utilizando e que apresenta algum problema para que possamos ajudá-lo.

Pessoal,

Coloquei o arquivo que estou utilizando atualmente.

1º Acesse a aba cadastro, clique em Carga
2º Ao abrir o formulário feche
3º Ao mover o mouse o erro aparecerá.

Grato,

Olá Maurício,

Me parece que este erro é pertinente:

Erro em tempo de execução '2012':

O nome do formulário 'Frm_Cadastro_Cargo_Prestador' foi digitado incorretamente ou refere-se a um formulário que não existe.

=> DoCmd.OpenForm "Frm_Cadastro_Cargo_Prestador"

Não encontrei no painel este formulário indicado no erro. Verifique se estamos falando a mesma língua no tocante ao erro mencionado.

Maurício

Para conseguir ocultar um objecto o foco não pode estar no mesmo, por isso tem aí muito pequeno um campo chamado "Foco" no canto superior esquerdo, é para lá que o foco vai sempre que clika num controlo.

Veja o caso do "Cargo"  

   DoCmd.OpenForm "Frm_Cadastro_Cargo" ' aqui abre o formulário
   Forms.frm_menu_principal.Foco.SetFocus ' aqui move o foco para o tal campo "Foco"

O resto dos botões será sempre igual veja em baixo.

DoCmd.OpenForm "NomeDoFormulárioQu QuerAbrir"
Forms.frm_menu_principal.Foco.SetFocus

Aguardo

Mestres,

Muito Obrigado! Deu certo.

Olá Maurício,

O fórum todo agradece.

Boa Tarde!

Sei que o Tópico já foi resolvido, entretanto, encontrei detectei um problema quando eu clico em uma opção do menu, o formulário abre entretanto, o menu atrás não oculta novamente.

O meu código está assim, já tentei ao clique na opção, ao abrir o formulário e o menu continua visível quando eu abro o formulário.

Código:

'EXIBE O MENU CADASTRO E OCULTA OS RESTANTES
Me.Frm_DESENV_Escolha_Manutenção.Visible = False
Me.Frm_DESENV_Escolha_Ajuda.Visible = False
Forms.Frm_DESENV_Menu_Desenvolvedor.Foco.SetFocus


Agradeço a ajuda e atenção.

Obrigado.

Maurício
Posta aí o seu BD e detalhe bem a sua nova duvida.

Aguardo

Assis,

Bom Dia!

Segue o banco de dados em anexo, vá no menu manutenção e clique em refazer vinculo, e você verá que o outro formulário abrirá e o menu continuará visível atrás.

Grato pela ajuda e atenção.

Maurício
Como funciona?

Tem duas BD.

Por onde se entra ?

Assis,

Boa Dia!!!

Desculpe não ter sido claro...rsrs

1º - Acesso o arquivo "PROJETO_FE" com a tecla shift pressionada;
2º - Apague as tabelas vinculadas;
3º - Crie um novo Vinculo com o Back-End "PROJETO_BE";
4º - Acesse a tabela Tbl_GERAL_Cadastro_User;
5º - No campo UserRede, insirá o usuário que você utiliza no seu computador ou na rede;
6º - Feche o BD;
7º - Acesse o "PROJETO_FE" normal, sem pressionar nenhuma tecla;
8º - Abrirá o Menu Principal;
9º - Passe o Mouse sobre a opção "Ajuda" e o Menu aparecerá
10º - Clique na opção Tutorial de Utilização
11º - Abrirá uma tela (Se você reparar no fundo o Menu continuará visível)

A solução que busco e para ocultar este Menu após abrir um formulário.

Obrigado pela ajuda e atenção.

Maurício

Retire as imagens

Assis,

Não consegui abrir não?

Assis,

Conseguiu visualizar o meu erro?

Aguardo retorno.

Bom dia Maurício

Já resolveu a mensagem 28 ?

Aguardo