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]if com duas condições

    avatar
    reginaldotpt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/11/2023

    [Resolvido]if com duas condições Empty [Resolvido]if com duas condições

    Mensagem  reginaldotpt 21/11/2023, 18:11

    boa tarde,
    tenho um campo calculado no formulário e quero que quando esse campo for preenchido aconteça o seguinte:
    se o valor for >=3,5  preencher outro campo plagio com o valor " normal"
    se o valor for > 3,5 e <= 6,25 preencher o campo plagio com o valor "leve"
    se o valor for > 6,25  e <= 8,75 preencher o campo plagio com o valor "moderado"
    se o valor for > 8,75 e <= 11 preencher o campo plagio com o valor "severa"
    se o valor for > 11 preencher o campo plagio com o valor "muito severa"

    coloquei assim, mas não está funcionando corretamente.

    Private Sub cvai_calc_Click()


    If cvai_calc <= "3,5" Then
    Me.plagio = "normal"

    ElseIf cvai_calc > "3,5" And cvai_calc < "6,25" Then
    Me.plagio = "leve"

    ElseIf cvai_calc > "6,25" And cvai_calc < "8,75" Then
    Me.plagio = "moderado"

    ElseIf cvai_calc > "8,75" And cvai_calc < "11,00" Then
    Me.plagio = "severo"

    ElseIf cvai_calc > "11,00" Then
    Me.plagio = "muito severo"
    End If

    End Sub

    agradeço se alguém puder me ajudar.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  crysostomo 21/11/2023, 19:28

    Boa tarde.
    Troque o And por OR
    Código:
    ElseIf cvai_calc > "3,5" or cvai_calc < "6,25" Then
    Me.plagio = "leve"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    reginaldotpt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/11/2023

    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  reginaldotpt 21/11/2023, 21:45

    Obrigado pela atenção.
    alterei dessa forma: ( mas, esta dando erro em relação ao cálculo com as casas decimais. ) Ele não está considerando o número após a vírgula.)

    Private Sub cvai_calc_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    a = "3,5"
    b = "6,25"
    c = "8,75"
    d = "11"

    If cvai_calc <= a Then
    Me.plagio = "normalidade"

    ElseIf cvai_calc > a And cvai_calc <= b Then
    Me.plagio = "leve"

    ElseIf cvai_calc > b And cvai_calc <= c Then
    Me.plagio = "moderado"

    ElseIf cvai_calc > c And cvai_calc <= d Then
    Me.plagio = "severa"

    ElseIf cvai_calc > d Then
    Me.plagio = "muito severa"
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  JPaulo 22/11/2023, 09:49

    Código:
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim d As Double


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]if com duas condições Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]if com duas condições Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]if com duas condições Folder_announce_new Instruções SQL como utilizar...
    avatar
    reginaldotpt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/11/2023

    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  reginaldotpt 22/11/2023, 10:45

    Obrigado Jpaulo!! agora deu certo.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  crysostomo 22/11/2023, 12:15

    Sucesso Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]if com duas condições Empty Re: [Resolvido]if com duas condições

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:32