MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Codigo para duas condições If

    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    Codigo para duas condições If Empty Codigo para duas condições If

    Mensagem  Bessa_SP em 24/4/2019, 15:43

    Boa tarde Sr.s

    Estou com uma dúvida, tenho um formulario chamado Frm_Resultado e uma caixa de combinação chamada cbo_caixa, qual é a dúvida eu quero que quando essa caixa receber o valor CASH, ela calcule um valor, porém se ela for vazia irá calcular o mesmo valor. Vou colocar um exemplo:

    If Me.cbo_caixa.Value = "CASH" Then

    Me.SaldoAnterior.Value = Me.azul.Value


    Else
    Me.SaldoAnterior.Value = Me.C.Value

    End If

    Veja que essa é mesma condição do "CASH", para vazia...

    Alguém pode me ajudar?

    Obrigado....
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    Codigo para duas condições If Empty Re: Codigo para duas condições If

    Mensagem  crysostomo em 24/4/2019, 17:00

    mas que valor que vc que que ela calcule, ou que receba o valor?
    Tipo se ela receber o "CASH" coloca para somar os saldo que voce deseja.
    DSoma([o valor que vai vir + o outro valor que deseja])
    Ex:
    if cbo = CASH then
    Dsoma([saldoAnterior+ssaldoAtual])
    else
    'ão calcula nada
    end if
    end sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    Codigo para duas condições If Empty Codigo para duas condições If

    Mensagem  Bessa_SP em 24/4/2019, 17:41

    Boa Sr Crysostomo

    Eu acabei na correria colocando a condição errada...
    Veja a necessidade não é somar mais nada, o que desejo e que quando a cbo_Caixa receber o valor "Cash" ou ela for vazia "" a caixa de texto SaldoAnterior = caixa de texto Azul, senão a caixa de texto SaldoAnterior = caixa de texto C, por isso o código abaixo:
    If Me.cbo_caixa.Value = "CASH" Then

    Me.SaldoAnterior.Value = Me.azul.Value


    Else
    Me.SaldoAnterior.Value = Me.C.Value

    End If

    A minha dúvida é colocar duas condições iguais para o IF para situações diferentes, ou seja quando a cbo_caixa for "Cash", ela executará a ação IF acima, mais também quando ela for Vazia "" também executará a mesma condição, se for diferente dessas duas condições executará a condição Else...

    E mais ou menos por ai....
    Obrigado pela ajuda...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    Codigo para duas condições If Empty Re: Codigo para duas condições If

    Mensagem  crysostomo em 24/4/2019, 19:27

    usando o If , Else , você faz uma verificação , (se é falso ou verdadeiro), quando você quer colocar mais de um bloco para verificação você coloca Elseif

    if condição1
      ....
    else ........ "Aqui você esta fazendo uma ação"

    Elseif   "com esse comando você coloca quantas operações você quiser".
    para verificar os valores desejado.

    Para verificar se a caixa está vazia:
    Código:

      If IsNull(Me.cbo_caixa) Then
          MsgBox "Caixa está vazia", vbCritical, "Aviso"
          Me.cbo_caixa.SetFocus
          Me.cbo_caixa.BackColor = 646464
          DoCmd.CancelEvent
      End if
    End sub


    no momento estou no celular , qualquer coisa deixe o BD aqui com comentário nele , que damos uma olhadinha.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 31/10/2020, 01:46