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


3 participantes

    [Resolvido]Máscara de entrada

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 19/05/2010

    [Resolvido]Máscara de entrada Empty [Resolvido]Máscara de entrada

    Mensagem  jferna Qui 2 Set - 22:05

    Boa noite pessoal estou eu aqui denovo precisando de ajuda.
    Tenho BD e no campo chamado RG no formulário tenho uma máscara que me dá o seguinte resultado:
    0.000.000-0, até ai normal.
    Acontece que agora as carteiras de identidade estão com 09 (nove) dígitos assim:
    00.000.000-0, gostaria que ao digitar o número do RG tanto com 08 (oito) ou 09 (nove) dígitos fosse assumido a máscara de acordo com o nº de dígitos inseridos.

    Ats,
    Jorge.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  Alexandre Neves Sex 3 Set - 4:18

    Bom dia,

    Coloque
    - Orientação de leitura=da direita para a esquerda
    - máscara 90.000.000-0;0;_

    Obs.: Não testei
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 19/05/2010

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  jferna Sex 3 Set - 13:11

    Boa tarde, chegou perto, mais só dá certo quando o campo for digitado com 08 (oito) digitos quando for 09 (nove) não dão certo.
    Ats.
    Jorge.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  Alexandre Neves Sex 3 Set - 15:11

    Boa tarde,


    Coloque
    - Orientação de leitura=contexto
    - máscara 90.000.000-0;0;_ ou #0.000.000-0;0;_

    quando for 8 algarismos tem de introduzir espaço inicial
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 19/05/2010

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  jferna Sex 3 Set - 16:36

    Eu novamente, resolveu em parte, só que gostaria de digitar direto sem se preocupar se é 8 ou 9 dígitos e já saísse com o resultado correto, pois, são vários usuários e as vezes pode esquecer desse detalhe do espaço.
    ats.
    jorge.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  chsestrem Sex 3 Set - 18:05

    Só dando um pitaco,

    Private Sub SuaCaixaDeTexto_AfterUpdate()
    Dim NC
    NC = Len(SuaCaixaDeTexto)
    If NC = 8 Then
    Me.SuaCaixaDeTexto.Format = "@.@@@.@@@-@" 'formato o campo com 8 digitos
    Else
    Me.SuaCaixaDeTexto.Format = "@@.@@@.@@@-@" 'formato o campo 9 digitos
    End If
    End Sub

    Talvez ajude

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 19/05/2010

    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  jferna Qua 8 Set - 20:57

    Valeu funfou blz era isso que precisava,
    ats,
    Jorge.

    Conteúdo patrocinado


    [Resolvido]Máscara de entrada Empty Re: [Resolvido]Máscara de entrada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 26 Abr - 14:46