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

    Erro ao mudar de campo

    Compartilhe

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Erro ao mudar de campo

    Mensagem  Maurício Bruno em Sex 29 Set 2017, 16:22

    Bom Dia!

    Estou encontrando um problema, no meu campo de CPF, quando e digitado um campo incompleto por exemplo "123.4" e a pessoa data tab aparece a seguinte mensagem "o valor que inseriu não é apropriado para a máscara de entrada" ai eu tenho que aperta ESC para limpar o campo.

    Já tentei o código para limpar o campo especifico para não aparecer o erro porém não funciona.

    Gostaria de uma orientação para tratativa deste erro.

    Código:
    Private Sub txt_ndoc_AfterUpdate()
    'CONVERTE O MINUSCULO EM MAISCULA
    Me.ActiveControl = UCase(Me.ActiveControl)
    If Len(Me.txt_ndoc) < 11 Then
        Me.txt_ndoc = left(Me.txt_ndoc, 11)
        Me.txt_ndoc = Null

    Else
    'VERIFICA O CPF
    If Not IsNull(Me.txt_ndoc) And check_brasileiro = -1 Then
    If txt_ndoc = "11111111111" Or txt_ndoc = "22222222222" Or txt_ndoc = "33333333333" _
    Or txt_ndoc = "44444444444" Or txt_ndoc = "55555555555" Or txt_ndoc = "66666666666" _
    Or txt_ndoc = "77777777777" Or txt_ndoc = "88888888888" Or txt_ndoc = "99999999999" Or txt_ndoc = "00000000000" Then
        MsgBox "O CPF: " & Me.txt_ndoc & " é INVÁLIDO! Digite-o novamente.", vbInformation, "Atenção"
        Me.Undo
        DoCmd.CancelEvent

    ElseIf Not IsNull(Me.txt_ndoc) Then
        If Me.txt_ndoc.Value <> fncCpfValido(Me.txt_ndoc) Then
        MsgBox "O CPF: " & Me.txt_ndoc & " é INVÁLIDO! Digite-o novamente.", vbInformation, "Atenção"
            Me.txt_ndoc = Null
            Me.txt_ndoc.InputMask = ""
            Me.Undo
            Cancel = True
        Else
        Me.txt_ndoc.InputMask = "000\.000\.000\-00"
        End If
    Else
    MsgBox "CPF Válido."
    Me.txt_ndoc.InputMask = "000\.000\.000\-00"

        Exit Sub
    End If
    End If
    End Sub
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 01/03/2014

    Re: Erro ao mudar de campo

    Mensagem  Celso Roberto em Sex 29 Set 2017, 23:26

    Olá cole este no evento do formulário ao ocorrer erro

    Código:
    Private Sub Form_Error(DataErr As Integer, Response As Integer)
        Const INPUTMASK_VIOLATION = 2279
        If DataErr = INPUTMASK_VIOLATION Then
        MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
        Response = acDataErrContinue
        End If
    End Sub

    quando acontecer de se digitar dados incompletos em campo com mascara será emitido uma mensagem

    Espero que ajude

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 01/03/2014

    Re: Erro ao mudar de campo

    Mensagem  Celso Roberto em Ter 03 Out 2017, 15:12

    Olá...

    Deu Certo?

    Aguardo

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 01/03/2014

    Re: Erro ao mudar de campo

    Mensagem  Celso Roberto em Qua 18 Out 2017, 15:25

    Olá..

    Continuo aguardando seu retorno sobre este.

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Sab 18 Nov 2017, 08:09