[Resolvido]If com dois critério na mesma linha

Boa Tarde
não sei se e possível tenho dois campos de código     codigo1  e codigo2   e eles não pode se nem nulo e nem 0

tentei vários código mas nenhum deu certo

estou usando esse que funciona mas queria tentar mudar

if isnull(codigo1) then
call msg
elseif codigo1=0 then
call msg
elseif isnull(codigo2) then
call msg
elseif codigo2=0 then
call msg
end if

tentei esse e de varias maneira mas não deu certo

if isnull([codigo1] and [codigo2] then
call msg
elseif ([codigo1] and [codigo2]=0 then
call msg
end if

Olá Fernando,

Fiz um pequeno exemplo.
Segue código

Código:



Public Function Teste()

    Dim Campo1 As Variant
    Dim Campo2 As Variant
   
   
    Campo1 = Null
    Campo2 = 1
   
   
    If (Not IsNull(Campo1) And Trim(Campo1) <> Empty) And (Not IsNull(Campo2) And Trim(Campo2) <> Empty) Then
        MsgBox "Campos corretamente preenchidos.", vbInformation, "Mensagem"
    Else
        MsgBox "Verifique os preenchimento correto dos campos.", vbExclamation, "Aviso"
    End If


End Function





Espero ter ajudado.

Boa sorte

Tente assim:

Código:

    Dim cod1 As Integer, cod2 As Integer
    cod1 = Nz([codigo1], 0)
    cod2 = Nz([codigo2], 0)
    If IsNull([cod1]) Or IsNull([cod2]) Or [cod1] = 0 Or [cod2] = 0 Then Call msg

Mais um modo , gosto muito do select case :

Código:

Sua funcao()
Dim cod1 As Integer, cod2 As Integer
Select Case cod1
Case Is = 0
Call msg
Case Is = Empty
Call msg
End Select

Select Case cod2
Case Is = 0
Call msg
Case Is = Empty
Call msg
End Select
End Function

Vendo trecho do teu código
if isnull([codigo1] and [codigo2] then

Lembro para ter muito cuidado ao usar And no lugar de Or (And = E  e  Or  =  Ou ).
Se colocares em um código condição "A And B" = A e B , O evento só irá disparar se ambas se tornarem verdadeiras, já se usar condição  " A Or B "  =  A  ou  B . O evento disparará se uma ou outra condição ocorrer.  

Por mera curiosidade é possível usar algo tipo ?

Código:

select case X=Y or select case X=2y

Lembrei pode ser feito assim :

Código:

Sua Funcao()
Dim cod1 As Integer, cod2 As Integer
Select Case cod1 Or cod2

Case Is = 0
Call msg
Case Is = Empty
Call msg
End Select

End Function

Havia tentado assim só que não havia declarado as variáveis. " Detalhes quebram o código"

Ainda há a possibilidade de fazer a validação no formulário, pesquise sobre regras de validação.

Deu certo pessoal muito obrigado