[Resolvido]Utilização de And e OR na mesma sintaze com IF

Boa tarde


Estou a desenvolver um projeto pessoal, e precisava de preencher um campo da tabela, mas só se verificasse na mesma sintase IF com a combinação das clausulas AND e OR.

Do genero


IF (Campo1Value= 1 e Campo2Value=2 OR Campo2Value=3 OR CampoValue2= 4 then

Campo3Value= Concluido

else

end if

Agradecido!!!

Ola;

Você pode usar o tradicional IF;

Código:

If (Nz(Me.Campo1.Value, 0) = 1 And Nz(Me.Campo2.Value, 0) = 2) Or Nz(Me.Campo2.Value, 0) = 3 Or Nz(Me.Campo2.Value, 0) = 4 Then
        Me.Campo3.Value = "Concluído"
    End If

Ou o avançado, mas simples Select Case;

Código:

Select Case True
    Case Nz(Me.Campo1.Value, 0) = 1 And Nz(Me.Campo2.Value, 0) = 2
         Me.Campo3.Value = "Concluído"
    Case Nz(Campo2.Value, 0) = 3 Or Nz(Me.Campo2.Value, 0) = 4
         Me.Campo3.Value = "Concluído"
End Select

Usar sempre a função "Nz" para tratamento de Nulos.

Olá a todos,

JPaulo, com essa do "Avançado" , só posso dizer "Com o MaximoAccess é sempre aprender".

Abraço

Ola Alvaro;

Já que gosta de aprender e tenho-o debaixo de olho....

Veja ainda mais avançado, mas simples;

Código:

Select Case True
    Case Nz(Me.Campo1.Value, 0) = 1 And Nz(Me.Campo2.Value, 0) = 2: Me.Campo3.Value = "Concluído"
    Case Nz(Campo2.Value, 0) = 3 Or Nz(Me.Campo2.Value, 0) = 4: Me.Campo3.Value = "Concluído"
    Case Else: Me.Campo3.Value = "Erro"
End Select

Obrigado, ainda mais simples.

O que me partiu todo foi True
Select Case True

Vamos aguardar retorno do colega.

É muito utilizado em VB.Net

Outra maneira avançada, mas também simples é o uso da função interna "Switch"

Código:

Dim strResultado As Variant
strResultado = Switch((Nz(Me.Campo1.Value, 0) = 1 And Nz(Me.Campo2.Value, 0) = 2), "Concluído12", _
                      Nz(Campo2.Value, 0) = 3, "Conluído3", Nz(Me.Campo2.Value, 0) = 4, "Concluído4", True, "Nulo")
Me.Campo3.Value = strResultado

Esta também vai para o meu Baú de apontamentos.
Mais uma vez posso dizer "com o MáximoAccess é sempre aprender".

Sérgio, desculpe lá estas intromissões, aguardamos o seu retorno.

É essa a finalidade deste fórum, um aprendizado.

Tópico de 2010;

https://www.maximoaccess.com/t581-funcoes-esquecidas-no-ms-access

Parabéns , JPaulo aprendi também muito bom.
abraço Nogaro !

Boas!!!!

Agradeço ao JPaulo pela inestimável ajuda!!!


Com a sugestão
"If (Nz(Me.Campo1.Value, 0) = 1 And Nz(Me.Campo2.Value, 0) = 2) Or Nz(Me.Campo2.Value, 0) = 3 Or Nz(Me.Campo2.Value, 0) = 4 Then
Me.Campo3.Value = "Concluído"
End If"

Consegui aquilo que pretendia.
Mais uma vez, o meu muito obrigado !!!!!!!