[Resolvido]Botão inteligente para próximos formulários

Olá de novo, estava com saudades de vcs!

A situação é o seguinte: Tenho 1 formulário que desemboca em 3 outros formulários. Atualmente tenho 3 botões nele para cada um desses três, mas gostaria de fazer tudo em um botão só. Desta forma, preciso saber se é possível criar uma regra para que conforme tenha um valor específico selecionado ele abra um dos três formulários.

Não tem como eu encaminhar o banco para vocês, mas é bem simples o conceito:

Formulário 1: Geral para seleção do funcionário.
Ao selecionar o funcionário (é uma tabelinha) ele busca a coluna acoplada 3 (que é o cargo). sendo assim,

Ao clicar no botão:
Se ele for cargo "geral": Formulário 1a
Se ele for cargo "liderança": Formulário 1b
Se ele for cargo "diretor": Formulário 1c

Não há uma terceira opção, só essas.

Obrigado novamente pela ajuda.

Boa noite camarada.
Vê se é isso que você quer.

Código:

https://drive.google.com/open?id=117o5BYN6AZEXNrzSWRldTd0GfoWVPu37

Muito obrigado.

Resolve sim... no meu caso é um botão e não uma caixa de seleção, mas pelo que entendi deve funcionar. Vou testar amanhã que estou em reunião externa hj.

Muito obrigado novamente.

EDIT: Olhando o código já me surgiu uma duvida:

Tem como no "Select Case cxSelecaoClasse" impor que ele busque não a coluna acoplada, mas outra específica? A configuração está como a coluna 3 acoplada, mas eu gostaria que ele fizesse essa verificação na coluna 5. Tem como fazer isso sem alterar a coluna acoplada (que já está fazendo outra função pra mim)?

Boa  noite amigo , está ai.
tem uma caixa invisível no formulário que é ligada na coluna da configuração aonde fica o numero ele vai comparar o valor da coluna TXT da tabela configuração e vai fazer a comparação:
qual o numero que está lá, se for 1 ele vai abrir a diretor se for 2 ele vai abrir geral se for 3 vai abrir a liderança, caso for acima de 3  ou não tiver nenhum numero ele não vai abrir nenhum

Código:

https://drive.google.com/open?id=1EqhWUzw721gSTW73KQ_2eGYZfV52QE4Z

boa tarde amigo, dei uma melhorada aqui. pedi ajuda ate um colega.

Aqui ele vai fazer a verificação direto na tabela

drive.google.com/open?id=1045n6iRkOAcic3ms90EMdz-IUK-AJF-R

Atenção ás regras do fórum: Não pode colocar links externos, a menos que seja direto para DropBox.
Item Nº 14
https://www.maximoaccess.com/t48-regras-do-forum
Admin

Muito obrigado, funcionou.

Fiz alguns ajustes e vou explicar aqui caso alguém queira fazer o mesmo ou caso eu esqueça já fica aqui a informação =)

O código ficou assim:

Código:

Private Sub Comando30_Click()
 
If DLookup("Secretaria", "GAM consulta") = "CMPA" Then
 DoCmd.OpenForm "Formulário CMPAGAM"
ElseIf DLookup("Gratificação", "GAM consulta") = "GAM" Then
 DoCmd.OpenForm "Formulário GAM 2"
ElseIf DLookup("Gratificação", "GAM consulta") = "GRAAM" Then
 DoCmd.OpenForm "Formulário GRAAM"
ElseIf IsNull(Me.Gratificação) = True Then
 MsgBox " CAMPO DE VERIFICAÇÃO VAZIO"

Else
End If
 
End Sub


Vou tentar explicar:
If DLookup("Secretaria", "GAM consulta") = "CMPA" Then
 DoCmd.OpenForm "Formulário CMPAGAM"

If é o comando "se" (mesma coisa do excel)
DLookup serve para buscar valores e fazer transições, a explicação (copiar link e colar no navegador):
support.office.com/pt-br/article/fun%C3%A7%C3%A3o-dlookup-8896cb03-e31f-45d1-86db-bed10dca5937
desse comando.
Bom, como usei ele.... a primeira busca que o access faz é na consulta chamada "GAM consulta", ele busca a informação na coluna "Secretaria"... ele procura alguma coisa chamada "CMPA" e se encontrar ele abre o formulário "Formulário CMPAGAM".

Se ele não encontra, vai para a próxima busca:
ElseIf DLookup("Gratificação", "GAM consulta") = "GAM" Then
 DoCmd.OpenForm "Formulário GAM 2"

Agora ele não procura mais onde a pessoa trabalha (é que eu tenho um problema primeiro com esse tal de CMPA). Agora ele busca qual tipo de gratificação, que no caso só pode ser "GAM" ou "GRAAM". Se ele acha "GAM" então ele abre o formulário "Formulário GAM 2".

Se ele não acha, ai vai para a terceira etapa do "se", que é a mesma coisa que a segunda só que procurando "GRAAM". Se achar ele retorna o "Formulário GRAAM".

Se ele não encontra nada disso ele retorna a msg de texto: " CAMPO DE VERIFICAÇÃO VAZIO"


Obrigado novamente pela ajuda! =*

Que bom.
Eu te recomendo a não colocar espaços,coloque tudo junto tipo "secretaria"; GamConsulta
Gam2
Coloca o tópico como resolvido
para outros procurarem.
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraços

Olá a todos,

Recomendo a leitura das Regras do Fórum

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Já retifiquei neste tópico, se tiverem noutros a mesma situação regularizar.

Abraço e bons estudos com o MaximoAccess

Obrigado pela paciência, imaginei que por ser um link da própria microsoft não teria problemas. Terei mais cuidado.

Olá Marcos,

Só mesmo os internos ou seja para o próprio fórum.

Abraço e bons estudos com o MaximoAccess