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]Como se usa a função "If ElseIf Else"?

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Como se usa a função "If ElseIf Else"?

    Mensagem  Walter 14/9/2012, 22:14

    Boa tarde.
    Estou tendo dificuldade com uma expressão simples no VBA. Quero usar o comando If Elself Else para preencher automaticamente um terceiro campo de acordo com os valores inseridos em dois anteriores. Mas não sei como se faz isso. Quem puder me ajudar, vou anexar o BD com o formulario, pois experimentei colocar o código no Evento ApósAtualizar do 3º campo e não deu certo...
    Obrigado
    Anexos
    [Resolvido]Como se usa a função "If  ElseIf Else"? AttachmentCalcularRiscoCV.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 98 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  criquio 14/9/2012, 22:27

    É mais ou menos assim:

    Código:
    If Resultado = Condição1 Then
        Retorno 1
    ElseIf Resultado = Condição2 Then
        Retorno 2
    Else
        Retorno 3
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Alexandre Neves 14/9/2012, 22:30

    Boa noite, Walter
    Vá acompanhando o fórum. Várias vezes resolvemos situações similares
    Mude o controlo de sexo para caixa de combinação, limitada a duas opções M e F, designe-a cxcSexo
    Coloque ao sair do controlo de sexo e de idade

    Select Case cxcSexo
    Case "H"
    Select Case txtIdade
    Case Is < 35
    txtvalorIdade = 0
    Case Is < 40
    txtvalorIdade = 2
    Case Is < 45
    txtvalorIdade = 5
    Case Is < 50
    txtvalorIdade = 6
    Case Is < 55
    txtvalorIdade = 8
    Case Is < 60
    txtvalorIdade = 10
    Case Is < 65
    txtvalorIdade = 11
    Case Is < 70
    txtvalorIdade = 12
    Case Is < 75
    txtvalorIdade = 14
    Case Else
    txtvalorIdade = 15
    End Select
    Case "H"
    Select Case txtIdade
    Case Is < 35
    txtvalorIdade = 0
    Case Is < 40
    txtvalorIdade = 2
    Case Is < 45
    txtvalorIdade = 4
    Case Is < 50
    txtvalorIdade = 5
    Case Is < 55
    txtvalorIdade = 7
    Case Is < 60
    txtvalorIdade = 8
    Case Is < 65
    txtvalorIdade = 9
    Case Is < 70
    txtvalorIdade = 10
    Case Is < 75
    txtvalorIdade = 11
    Case Else
    txtvalorIdade = 12
    End Select
    End Select
    End Sub

    Já agora, qual a aplicação destes "índices"?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Walter 14/9/2012, 22:46

    Olá, Alexandre. Muito obrigado pela resposta.
    Vou testar do jeito que você sugeriu e dou um retorno.
    Sobre a finalidade é o seguinte:
    Temos uma planilha para calcular o Risco Cardiovascular de um pacinte em 10 anos. Ou seja qual a probabilidade de uma pessoa ter um Infarto, ou um AVC dentro de 10 anos. Para calcular isso usa-se alguns parâmetros, entre eles a idade: quanto mais idosa for a pessoa maior o risco dela ter um evento cardiovascular em 10 anos. Outro parametro usado é o Colesterol Total; outro é a Pressão Arterial e assim vai... Chama-se "Escore de Framingham", e estou tentando automatizar o calculo do mesmo no access... (Ficou claro?)
    Walter
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Walter 14/9/2012, 23:12

    Boa noite Alexandre.
    Fiz conforme voce sugeriu mas não funcionou... A terceira caixa de texto "ValorIdade" não é preenchida automaticamente... O que fiz de errado?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Alexandre Neves 14/9/2012, 23:40

    Obrigado pela explicação. Afinal, sempre se aprende
    Coloque o cursor na primeira linha do código e prima F9. Quando o acontecimento disparar, a execução pára nessa linha, prima F8 para execução passo-a-passo e verifique o circuito do código onde não faz como esperado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Walter 15/9/2012, 00:43

    Perfeito, Alexandre.
    Do jeito que eu queria. Agora vou fazer o mesmo com os outros parâmetros que são: Colesterol Total (Também por Sexo), Colesterol HDL (Também por sexo), Pressão arterial (também por sexo), Diabetes Melitus e tabagismo. Vou clicar em Resolvido porque jáentendi o código. Se algo der errado inicio outro tópico. Muito obrigado pela sua ajuda. Bom final de semana.

    Conteúdo patrocinado


    [Resolvido]Como se usa a função "If  ElseIf Else"? Empty Re: [Resolvido]Como se usa a função "If ElseIf Else"?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 02:48