MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


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

    avatar
    toadpoa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 31/10/2018

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

    Mensagem  toadpoa em 19/2/2019, 20:44

    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.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 19/2/2019, 22:41

    Boa noite camarada.
    Vê se é isso que você quer.
    Código:
    https://drive.google.com/open?id=117o5BYN6AZEXNrzSWRldTd0GfoWVPu37
    avatar
    toadpoa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 31/10/2018

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

    Mensagem  toadpoa em 20/2/2019, 19:49

    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)?

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 20/2/2019, 20:59

    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

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

    Código:
    https://drive.google.com/open?id=1EqhWUzw721gSTW73KQ_2eGYZfV52QE4Z
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 21/2/2019, 15:24

    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
    http://www.maximoaccess.com/t48-regras-do-forum
    Admin


    Última edição por crysostomo em 22/2/2019, 11:16, editado 1 vez(es)
    avatar
    toadpoa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 31/10/2018

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

    Mensagem  toadpoa em 21/2/2019, 21:35

    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! =*
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 22/2/2019, 11:10

    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.
    http://www.maximoaccess.com/t860-resolucao-de-topicos
    Abraços


    Última edição por crysostomo em 22/2/2019, 11:42, editado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 22/2/2019, 12:06

    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
    avatar
    toadpoa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 31/10/2018

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

    Mensagem  toadpoa em 22/2/2019, 12:40

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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 28/2/2019, 17:42

    Olá Marcos,

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

    Abraço e bons estudos com o MaximoAccess Wink

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2019, 21:49