[Resolvido]Erro 94 (uso inválido do null), cursor fica preso no campo do form.

Bom dia,

Alguém aí já passou por este problema e conseguiu resolver?:

Tenho um form com 5 campos, no campo e-mail tem um código de validação no evento ANTES DE ATUALIZAR que chama uma função chamada "ValidaEmail". Quando eu digito um e-mail com formato errado funciona tudo bem, mas quando eu resolvo apagar o que eu digitei nesse campo e pressionar a tecla Enter o cursor não passa para o campo seguinte, apresenta o erro 94 (uso inválido do null).
Já tentei as soluções apresentadas aqui no próprio fórum e em vários lugares, mas nenhuma deu certo.

Se alguém tiver uma dica, segue em anexo o BD.

Abraços.

As instruçoes estao invertidas,

Teste assim

Código:

Private Sub EmailPropComprador_BeforeUpdate(Cancel As Integer)
 Dim VALID As Boolean
 VALID = validaEmail(Me.EmailPropComprador) 'LIGA A VARIÁVEL 'VALID' À FUNÇÃO 'ValidaEMail' E AO CAMPO 'EMAIL'

 If IsNull(Me.EmailPropComprador) Then Exit Sub
    If VALID = False Then  'SE O QUE FOI DIGITADO NO CAMPO 'EMAIL' NÃO FOR ACEITO PELA FUNÇÃO 'ValidEMail', OU SEJA, NÃO PASSAR PELA VALIDAÇÃO...
        MsgBox "FORMATO INVÁLIDO DE E-MAIL!", vbCritical, "ERRO" 'EXIBE MENSAGEM DE ERRO
        Me.EmailPropComprador.Undo
        Cancel = True 'CANCELA O EVENTO
        Exit Sub
    End If
End Sub

Olá, J. Paulo!

Coloquei o teu código e mesmo assim o problema persiste.
Acredito que esteja faltando alguma coisa dentro do código da função 'ValidaEmail' que permita parar a função caso algum campo esteja vazio.

Tenho uma função aqui para validação de CPF/CNPJ que funciona perfeitamente em campos vazios de formulários, mesmo que o usuário já tenha começado a digitar algo.

Veja se atende;

Download

Eu troquei o código de validação de email, por um elaborado por mim.
Mas o problema estava no depois de atualizar desse campo (After_Update), que estava a tentar fazer um insert vazio.

JPaulo!

Desculpe-me pela demora de responder, cheguei do trabalho há poucos minutos.

Você, como sempre, salvando o dia!

Parabéns mais uma vez por tua paciência e vontade de ajudar. Funcionou perfeitamente!

Fico feliz

Obrigado pelo retorno o forum agradece.

Ajude o fórum quando puder, nos links abaixo.

OK, amigo JPaulo!