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]Mascara (InputMask)

    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Mascara (InputMask) Empty [Resolvido]Mascara (InputMask)

    Mensagem  M2013 em 8/8/2019, 17:45

    Prezados,

    Estou com dificuldades para criar uma mascara em um campo texto. O campo deve ser iniciado com um texto seguido de números , assim:

    exemplo: GCC.P.0000.2019 ,

    onde ao receber foco a máscara já mostre GCC.P. e abra para digitação de 8 numeros : 0000.0000

    GCC.P.____.____ (mais ou menos assim)


    Tentei : evento Doc_GotFocus()

    Doc.InputMask = Chr(34) & "GCC" & ".P." & Chr(34) & 0# sem sucesso.

    Tentei: eventoDoc_AfterUpdate()

    Me.[Doc] = Format(Chr(34) & "GCC" & ".P." & Chr(34) & 0#)

    Para gravar na tabela usei 'format' também sem sucesso. Gravou apenas os numeros.

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2879
    Registrado : 21/04/2011

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  Marcelo David em 8/8/2019, 18:29

    Boa tarde,
    não precisa ser no VBA, pode por na propriedade do campo: Máscara de entrada: \G\C\C\.\P\.0000\.0000;0;_


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  M2013 em 8/8/2019, 20:22

    Obrigado Marcelo, funcionou...

    só estou tendo dificuldade para exibir a máscara no campo automaticamente, ou seja, quando receber foco ou entrar.

    Como tenho 3 máscaras diferentes que são trocadas conforme o valor de um outro campo, não consegui que a máscara aparecesse.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2879
    Registrado : 21/04/2011

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  Marcelo David em 8/8/2019, 21:31

    A sim...

    Poderá definir a máscara no evento Após atualizar desse campo que determinará a máscara.

    Por exemplo:

    Código:
    If Me!SeuCampo = "Valor A"
      Me!Doc.InputMask = "\G\C\C\.\P\.0000\.0000;0;_"
    ElseIf Me!SeuCampo = "Valor B"
      Me!Doc.InputMask = "Máscara B"
    ElseIf Me!SeuCampo = "Valor C"
      Me!Doc.InputMask = "Mascara C"
    End If

    Daí, você chama a sub do evento Após atualizar no evento No atual do formulário. Dessa forma a máscara será exibida também
    nos registros já salvos (apesar da máscara está sendo salva literalmente).


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  M2013 em 9/8/2019, 12:11

    Entendi, obrigado.

    A questão talvez não tenha explicado direito.

    Fiz um banco de exemplo(em anexo).

    Tenho um formulário e um subFormulário.

    Ao Entrar no Formulário o usuário só registra os dados do SubFormulário.
    Veja no exemplo o registro nª 3.Ao entrar nesse registro a intenção é ao mover o foco para [Doc] que a máscara apareça.

    Criei um 'Sub' "mascaraDoc" onde defino as máscaras de acordo com um campo do formulário.

    Ao abrir o terceiro registro o foco é movido mas não é mostrada a mascara.Tenho de clicar no campo para aparecer.

    novamente, obrigado pela força
    Anexos
    [Resolvido]Mascara (InputMask) AttachmentMASK.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (68 Kb) Baixado 2 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2879
    Registrado : 21/04/2011

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  Marcelo David em 9/8/2019, 15:28

    Bom dia,
    Vi que você definiu o Formato do campo pela folha de propriedade e a máscara pelo VBA. O Formato não se faz necessário
    pois a máscara já contempla tudo o que precisa (pelo menos na minha compreensão), daí melhorei o que achei necessário.

    Se eu entendi, você quer que a máscara seja exibida antes do campo ser preenchido, correto?
    Se sim, basta mover o cursor do mouse para alguma posição do campo, no caso Doc.

    No evento ao receber o foco do campo Doc, pus isso:
    (Para facilitar a digitação, movi o cursor para a posição 6)

    Me!Doc.SelStart = 6

    Teste o exemplo do anexo.
    Anexos
    [Resolvido]Mascara (InputMask) AttachmentMASK_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 5 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  M2013 em 9/8/2019, 16:41

    Prezado, obrigado pela ajuda. Funcionou perfeitamente, abraço
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2879
    Registrado : 21/04/2011

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  Marcelo David em 9/8/2019, 18:30

    Feliz que deu certo. O Fórum agradece o retorno.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Mascara (InputMask) Empty Re: [Resolvido]Mascara (InputMask)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/11/2019, 13:57