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]formatar textbox

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]formatar textbox Empty [Resolvido]formatar textbox

    Mensagem  ictsp 24/5/2017, 19:09

    Boa tarde amigos! tenho um campo em minha tabela no qual salvei números no formato de texto.

    Atualmente, os dados estão da seguinte forma:

    73040010

    Gostaria de formatar de modo que ficasse assim na caixa de texto do formulário:

    7304.00.10

    O critério seria os quatro primeiros caracteres, da esquerda para direita, depois os pares.

    Alguém teria alguma idéia? Desde já, agradeço imensamente a ajuda dos colegas!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Silvio 24/5/2017, 20:07

    Na tabela, no campo de origem, use a máscara:

    ####.##.##


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  ictsp 24/5/2017, 20:45

    Boa tarde Silvio! Muito obrigado pela ajuda. Seria possível variar essa formatação?

    Os quatro primeiro digitos são obrigatórios. Os outros não.

    ####.#
    ####.##
    ####.##.#
    ####.##.##

    Tem como ser feito via vba? Valores numéricos já consegui, mas esse tá dificil kkk

    Desde já muito obrigado!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Silvio 24/5/2017, 21:43

    Veja o link da Microsoft ( copie e cole no navegador )

    support.office.com/pt-br/article/Controlar-formatos-de-entrada-de-dados-com-m%C3%A1scaras-de-entrada-e125997a-7791-49e5-8672-4a47832de8da



    No seu caso:0000.##.##

    O zero ( 0 ) torna o preenchimento obrigatório.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  ictsp 25/5/2017, 14:44

    Bom dia Silvio! Cara, me desculpe, não estou conseguindo ser muito claro no que pretendo. Coloquei uma imagem pra ver se melhora.

    Da forma como você sugeriu, os campos com menos de 8 digitos fica em branco mas com pontos, dessa forma: 7201.  .  

    O que eu quero fazer, se for possivel, é deixar como está na imagem abaixo:
    [Resolvido]formatar textbox Teste11

    Muito obrigado pela ajuda!!
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Celso Roberto 25/5/2017, 16:11

    Olá...

    Com a licença do Amigo Silvio, tenta este código no evento após atualizar do campo NCM
    Código:
    Private Sub NCM_AfterUpdate()
     If IsNull(Me.NCM) Or Me.NCM = "" Then Exit Sub

        Select Case Len(Me.NCM)
          Case 4
            Me.NCM = Format(Me.NCM, "@@@@")
          Case Is = 5
            Me.NCM = Format(Me.NCM, "@@@@.@")
          Case Is = 6
            Me.NCM = Format(Me.NCM, "@@@@.@@")
          Case Is = 7
            Me.NCM = Format(Me.NCM, "@@@@.@@.@")
          Case Is = 8
            Me.NCM = Format(Me.NCM, "@@@@.@@.@@")
        End Select
    End Sub


    Espero que akude..

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  ictsp 25/5/2017, 16:56

    Boa tarde Celso! Muito obrigado pela ajuda. Eu já tenho esses valores salvos em uma tabela. Estou tentando exibi-los em um formulário do tipo folha de dados com a formatação que postei na foto anteriormente.

    Na tabela, esses valores são do tipo "texto".
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Silvio 25/5/2017, 18:24

    Isaque, o que o Celso lhe passou também está correto e funciona perfeitamente.
    Na tabela não vai ficar do jeito que deseja usando o que o Celso lhe passou, mas no evento do formulário ( Atual / Ao abrir ) vai lhe mostrar corretamente.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  ictsp 25/5/2017, 18:34

    Muito obrigado Silvio e Celso pela ajuda! Ficou perfeito. Agradeço imensamente a paciência dos amigos e a disposição em ajudar.

    Usei os códigos do Celso no evento Atual do formulário sugerido pelo Silvio.

    Muito Obrigado!! cheers
    [Resolvido]formatar textbox Certo10
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Celso Roberto 26/5/2017, 20:34

    Olá...

    O fórum agradece pelo retorno

    Abraços.


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Conteúdo patrocinado


    [Resolvido]formatar textbox Empty Re: [Resolvido]formatar textbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 19:46