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


3 participantes

    [Resolvido]Abrir formulário "se"

    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Abrir formulário "se" Empty [Resolvido]Abrir formulário "se"

    Mensagem  Jefferson Jr 4/5/2016, 17:30

    Olá, boa tarde amigos.

    Estou com uma dúvida...

    Tenho um campo de combinação, chamado "Estado civil", esse campo tem 4 opções: 1- Solteiro, 2- casado, 3- separado, 4- união estável, 5- divorciado.

    Tenho também um formulário de cadastro de cônjuge.

    A dúvida é:

    Como eu faço para quando o usuário escolher 2 e 5 abrir o formulário de cadastro do cônjuge?


    Sei q é galho fraco pra vocês, mas não consegui aqui!
    como é?


    Última edição por Jefferson Jr em 5/5/2016, 13:06, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Silvio 4/5/2016, 18:21

    Algo parecido com isso...

    If me.suacombinacao = "Casado" or "união estavel" Then
    docmd.openform"..bla..bla"
    Else
    exit sub
    end if
    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Jefferson Jr 5/5/2016, 12:41

    No caso ficaria assim?

    If me.suacombinaconjuge = 2 or 4 Then
    docmd.openform frmConjuge
    Else
    exit sub
    end if


    Pois não funcionou! Sad

    Como seria o if correto?

    Só pra completar, os casos que tem q abrir o furmulário do conjuge são 4:
    6 - Casado;
    7 - União estável;
    8 - Casado com comunhão de bens
    9 - Casado sem comunhão de bens


    Caso o usuário escolha qualquer uma dessas opções ele tem q abrir o formulário "frmConjuge". Como ficaria esse if?
    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Jefferson Jr 5/5/2016, 12:53

    ficaria certo assim?

    If Me.Combinação64 = 6 Or 7 Then
    DoCmd.OpenForm frmConjuge
    Else
    If Me.Combinação64 = 8 Or 9 Then
    DoCmd.OpenForm frmConjuge
    Exit Sub
    End If
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Silvio 5/5/2016, 12:55

    Bom dia....

    Precisa ver como está a estrutura de tua combo.

    Anexe as partes envolvidas para darmos uma olhada.

    Abraços.
    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Jefferson Jr 5/5/2016, 13:06

    Obrigado pela atenção, com sua dica, consegui resolver. Smile
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Avelino Sampaio 5/5/2016, 13:14

    Olá!

    Experimente:

    If Eval(Me!Combinação64 & "between 6 and 9") Then docmd.openform frmConjuge


    Para o caso de número intercalados

    If Eval(Me!Combinação64 & & "IN(2,4)") Then docmd.openform frmConjuge


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


    [Resolvido]Abrir formulário "se" Empty Re: [Resolvido]Abrir formulário "se"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 08:17