MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]onde inserir mascaras de entrada personaliza no access 2003

    avatar
    rl131289
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 24/07/2012

    [Resolvido]onde inserir mascaras de entrada personaliza no access 2003 Empty [Resolvido]onde inserir mascaras de entrada personaliza no access 2003

    Mensagem  rl131289 24/7/2012, 02:39

    PERGUNTA
    ola eu mexo muito com cadastro de clientes e muitos sao cpf e muitos cnpj
    tem como eu digitar os numeros e automaticamente ele me fala se e cpf ou cnpj
    ex
    digito assim cpf:12345678900
    ele transforma assim no mesmo campo:123.456.789-00
    digito assim cnpj:12345678900900
    ele transforma assim no mesmo campo:12.345.678/0009-00
    tudo no mesmo tempo

    RESPOSTA
    Considerando um campo chamado t1Cnpj (altere):
    Private Sub Form_Current() Select Case Len(Me.t1Cnpj) Case 14 ' É CNPJ Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00" Case 11 ' É CPF Me.t1Cnpj.InputMask = "000\.000\.000\-00" Case Else ' Não é CNPJ nem CPF Me.t1Cnpj.InputMask = "" End SelectEnd SubPrivate Sub t1Cnpj_AfterUpdate() Select Case Len(Me.t1Cnpj) Case 14 ' É CNPJ Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00" Case 11 ' É CPF Me.t1Cnpj.InputMask = "000\.000\.000\-00" Case Else ' Não é CNPJ nem CPF Me.t1Cnpj.InputMask = "" End SelectEnd Sub

    PERGUNTA??????
    ONDE EU INSIRO ESSE CODIGO??????

    OBRIGADO.. RAFAEL
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]onde inserir mascaras de entrada personaliza no access 2003 Empty Re: [Resolvido]onde inserir mascaras de entrada personaliza no access 2003

    Mensagem  HARYSOHN 24/7/2012, 05:26

    Boas Rafael, evite digitar em Maiúsculas nos post's, na web digitar assim é o mesmo que gritar, agradeceriamos se editasse sua mensagem e corrigisse.

    Moderação do Fórum

    Ps... Colocou uma pergunta e logo após uma resposta, esta respostas foi conseguida em algum outro post?




    O prórpio código da diz tudo, abra o form em modo Design, propriedades, eventos.

    No Atual

    Private Sub Form_Current()
    Select Case Len(Me.t1Cnpj)
    Case 14 ' É CNPJ
    Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00"
    Case 11 ' É CPF
    Me.t1Cnpj.InputMask = "000\.000\.000\-00"
    Case Else ' Não é CNPJ nem CPF
    Me.t1Cnpj.InputMask = ""
    End Select
    End Sub

    Apos atualizar da caixa texto
    Private Sub t1Cnpj_AfterUpdate()
    Select Case Len(Me.t1Cnpj)
    Case 14 ' É CNPJ
    Me.t1Cnpj.InputMask = "00\.000\.000\/0000\-00"
    Case 11 ' É CPF
    Me.t1Cnpj.InputMask = "000\.000\.000\-00"
    Case Else ' Não é CNPJ nem CPF
    Me.t1Cnpj.InputMask = ""
    End Select
    End Sub



    Cumprimentos.

      Data/hora atual: 20/1/2022, 11:02