MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]formatar campo

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1467
    Registrado : 23/01/2018

    [Resolvido]formatar campo Empty [Resolvido]formatar campo

    Mensagem  crysostomo em 30/8/2019, 23:13

    Boa noite , nã consigo formatar o compo cpf . ja tentei mas não funciona , tipo 22222222222 e receber 222.222.222-22.
    ele não devolve os numeros so fica no #
    Código:
    Private Sub CPF_AfterUpdate()
     Me.cpf = "###.###.###-##"
    If Len(Me.cpf) < 11 Then
        MsgBox "O cpf contém 11 dígitos." & vbCrLf & "você digitou menos", vbInformation, "Consulmed"
        End If
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 13/04/2012

    [Resolvido]formatar campo Empty Re: [Resolvido]formatar campo

    Mensagem  Fernando Bueno em 31/8/2019, 00:26

    Boa noite Gilliard;

    Tente dessa forma:

    Código:
    Private Sub CPF_AfterUpdate()
     Me.cpf.InputMask = "000\.000\.000\-00"
    If Len(Me.cpf) < 11 Then
        MsgBox "O cpf contém 11 dígitos." & vbCrLf & "você digitou menos", vbInformation, "Consulmed"
        End If
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]formatar campo 16rzeq
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1467
    Registrado : 23/01/2018

    [Resolvido]formatar campo Empty Re: [Resolvido]formatar campo

    Mensagem  crysostomo em 3/9/2019, 03:48

    mas se eu colocar essa mascara ele não deixa a condição ser executada, aparece o mensagem do access


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]formatar campo Empty Re: [Resolvido]formatar campo

    Mensagem  Alexandre Fim em 3/9/2019, 13:36

    Faça isso:

    Código:


    Private Sub CPF_AfterUpdate()
    Dim vCPF As String
       
        vCPF = Replace(Replace(Me.cpf, ".", ""), "-", "")
       
        If Len(vCPF) < 11 Then
            MsgBox "CPF Inválido. Informe corretamente", vbExclamation, "Consulmed"
        End If
       
    End Sub




    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1467
    Registrado : 23/01/2018

    [Resolvido]formatar campo Empty Re: [Resolvido]formatar campo

    Mensagem  crysostomo em 3/9/2019, 13:57

    vou dar uma olhada sobre replace, pois esse não formatou


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1467
    Registrado : 23/01/2018

    [Resolvido]formatar campo Empty Re: [Resolvido]formatar campo

    Mensagem  crysostomo em 22/9/2019, 20:21

    vou colocar esse como resolvido , o replace parece que limpa os pontos etc.. e funciona em um e outro campo ele dar erro


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 3/12/2020, 19:43