[Resolvido]Validações num formulário

Olá,

Tenho um conjunto de campos de um formulário onde gostaria de colocar algumas validações, mas estou perdido...
Por exemplo:
Campo "1" Não é nulo, o Campo "2" tem de ser preenchido
Campo "1" Igual a "A"ou "B", o Campo "3" tem de ser maior que "0"

O Campo "1" é Texto
O Campo "2" é Data - Formatado como Data Abreviada
O Campo "3" é Numero - Formatado como Padrão

Acessóriamente, pretendia que quando as validações não fossem cumpridas, o utilizador fosse alertado de alguma forma, através de uma mensagem ou colorindo o campo que falta preencher numa cor diferente.

Alguem me pode ajudar?

Obrigado

Olá, tente adaptar o esquema abaixo:

Código:

If Not IsNull(Me.Campo1) Then
    If Me.Campo1 = A Ou Me.Campo1 = B Then
        If Me.Campo2 <= 0 Then
            MsgBox "O Campo2 precisa ser maior do que zero", vbCritical, "Atenção"
        End If
    ElseIf Not IsNumeric(Me.Campo1) Then
        If Not IsDate(Me.Campo2) Then
            MsgBox "O Campo2 precisa ser data", vbCritical, "Atenção"
        If Not IsNumeric(Me.Campo3) Then
            MsgBox "O Campo3 precisa ser número", vbCritical, "Atenção"
        End If
    End If
End If

Desde já agradeço a colaboração,

Tanto na 1ª sugestão como na 2ª, estou a colocar o código no Evento, Depois de Actualizar no campo 1

Relativamente à 1ª sugestão, efectivamente pede o preenchimento do campo data quando está em branco, mas no que respeita ao campo 3 nada acontece.

Quanto à 2ª sugestão, ocorre o seguinte erro:
Compile Error:
Block if without End If

Como tenho poucos conhecimentos sobre a matéria, passo a indicar como estou a transcrever o código de ambos os exemplos, não vá estar a cometer algum erro:

1ª Sugestão
If Not IsNull(Me.Decisão) And IsNull(Me.Encerrado_Em) Then
MsgBox "Preencha o Encerrado Em"
Else
If Me.Decisão = "Acordo" And Not Nz(Me.Valor_Acordado) > 0 Then
MsgBox "O Valor Acordado deve ser maior que zero"
End If
End If

2ª Sugestão
If Not IsNull(Me.Decisão) Then
If Me.Decisão = "Acordo" Then
If Me.Encerrado_Em <= 0 Then
MsgBox "O Encerrado Em precisa ser maior do que zero", vbCritical, "Atenção"
End If
ElseIf Not IsNumeric(Me.Decisão) Then
If Not IsDate(Me.Encerrado_Em) Then
MsgBox "O Encerrado Em precisa ser data", vbCritical, "Atenção"
If Not IsNumeric(Me.Valor_Acordado) Then
MsgBox "O Valor Acordado precisa ser número", vbCritical, "Atenção"
End If
End If
End If

Muito obrigado

Mais uma vez obrigado pela ajuda e peço desculpa por insistir, mas a 2ª linha do código está a dar erro.
"Else If Me.Decisão = "Acordo" And Is Not Nz(Me.Valor_Acordado) > 0 Then" a linha aparece a vermelho e aparece a seguinte mensagem:
Compile Error:
Syntax error

Muito obrigado.
Resovido