[Resolvido]Validação de dados com a função SeImed

Olá pessoal, boa noite

Não tenho muito conhecimento em access e estou com dificuldades com a validação de dados.

Estou usando a função/expressão SeImed, mas os resultados não foram satisfatórios.

Abaixo seguem as expressão que tentei usar:

No campo 'dataCancelamento'
SeImed([Formulários]![frmCadastroPontos]![codStatusPonto]="3";[Formulários]![frmCadastroPontos]![dataCancelamento] É Negado Nulo;[Formulários]![frmCadastroPontos]![dataCancelamento] É Nulo)

No campo 'codStatusPonto'
SeImed([Formulários]![frmCadastroPontos]![dataCancelamento]is not null;[Formulários]![frmCadastroPontos]![codStatusPonto]=3;[Formulários]![frmCadastroPontos]![codStatusPonto]=1 Ou 2 Ou 4)

No campo 'codStatusPonto'
SeImed([Formulários]![frmCadastroPontos]![dataCancelamento]is not null;[Formulários]![frmCadastroPontos]![codStatusPonto]=3;[Formulários]![frmCadastroPontos]![codStatusPonto]=<>3)

A intenção da validação é o seguinte, sempre que houver valores inseridos no campo "dataCancelamento" o campo "codStatusponto" deve estar com o valor 3.

O que estou fazendo de errado?

Desde já agradeço.

Olá Ericson, seja bem vindo ao forum.

E quando não houver valores inseridos no referido campo? Como fica o outro?

Os dois campos estão no mesmo formulário?

Em primeiro lugar, tem que se saber o que ficará nesse campo caso o outro seja nulo, mas é mais ou menos assim, caso estejam ambos no mesmo formulário, você coloca no campo que vai receber o 3 caso o outro não seja nulo:

=SeImed(Negado ÉNulo([codStatusPonto]);3;"")

No lugar de "" você coloca o outro valor.

Obrigado pelo rápido retorno Criquio.

Ambos os campos estão no mesmo formulário, inclusive testei as expressões direto na tabela também.

Se o campo dataCacelamento não estiver vazio, obrigatoriamente o campo codStatusPonto deve ser preenchido com "3". Se 'codStatusPonto' tiver qualquer outro valor (1, 2 ou 4) 'dataCancelamento' deve estar vazio.

Talvez ajude melhor entender assim:

O formulário está vinculado a outra tabela que identifica os valores assim:
1 = Backlog
2 = Instalado
3 = Cancelado
4 = Suspenso.

A intenção é que, se o campo dataCancelamento for preenchido, o codStatusPonto terá que ser alterado par 3 (cancelado
Esta alteração poderia ser automática, se possível, ou apresentando a mensagem de erro na validação, pra que não seja esquecido de realizar a alteração. Eu achei mais fácil utilizar a validação já que não entendo muito.

Talvez seja melhor usar o evento "Após atualizar" dos campos e o evento "Ao carregar" do formulário e fazer essa validação por código vba:

No evento "Após atualizar" do campo codStatusPonto:

If Me.codStatusPonto <> 3 Then
    If Not IsNull(Me.DataCancelamento) Then
        MsgBox "Se não está cancelado, então o campo da data de cancelamento precisa ficar vazio", vbOkOnly + vbCritical, "Erro"
    Else
        Exit Sub
    End If
End If

No evento "Ao carregar" do formulário:

If Not IsNull(Me.DataCancelamento) Then
    Me.codStatusPonto = 3
End If

Perfeito! Funcionou 100%.

Criquio, muito obrigado pela ajuda e principalmente pela agilidade nas respostas.

Valeu amigo. Se desejar, podes ainda modificar o primeiro bloco do código para colocar a data nula ao invés de avisar:

If Me.codStatusPonto <> 3 Then
    Me.DataCancelamento = Null
Else
    Exit Sub
End If

Acredito que assim fique ainda mais ágil.

Criquio, realizei alguns testes aqui.

Gostei da mensagem, pois da forma como os dados são apesentados no forumlario, ajuda a tornar rotina do usuario em prestar bem atenção no que está fazendo, principalmente se estiver num registro errado.

Mais uma vez agradeço a atenção.