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

    Compartilhe

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]formatar textbox

    Mensagem  ictsp em Qua 24 Maio 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!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  Silvio em Qua 24 Maio 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.
    [Você precisa estar registrado e conectado para ver este link.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  ictsp em Qua 24 Maio 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!!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  Silvio em Qua 24 Maio 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.
    [Você precisa estar registrado e conectado para ver este link.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  ictsp em Qui 25 Maio 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:
    [Você precisa estar registrado e conectado para ver este link.]

    Muito obrigado pela ajuda!!
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  Celso Roberto em Qui 25 Maio 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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  ictsp em Qui 25 Maio 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".
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  Silvio em Qui 25 Maio 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.
    [Você precisa estar registrado e conectado para ver este link.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  ictsp em Qui 25 Maio 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
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]formatar textbox

    Mensagem  Celso Roberto em Sex 26 Maio 2017, 20:34

    Olá...

    O fórum agradece pelo retorno

    Abraços.


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

      Data/hora atual: Ter 21 Nov 2017, 21:00