MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

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

    Mensagem  Thel em 20/9/2018, 13:29

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 20/9/2018, 14:17

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

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

    Mensagem  Thel em 20/9/2018, 14:29

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 20/9/2018, 16:06

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

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

    Mensagem  Thel em 20/9/2018, 22:47

    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!

    cheers cheers cheers cheers cheers cheers Basketball Basketball Basketball Basketball Basketball Basketball
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 21/9/2018, 11:45

    Fico feliz

    Obrigado pelo retorno o forum agradece.

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

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

    Mensagem  Thel em 23/9/2018, 14:17

    OK, amigo JPaulo!

      Data/hora atual: 26/3/2019, 02:58