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]Acrescentar zeros à esquerda em campo com tamanho específico

    Compartilhe

    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 31/08/2012

    [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  Chamon Consultoria em 14/4/2018, 16:30

    Boa tarde!

    Bd em Access 2010.


    Gostaria de uma função que preencha com zeros à esquerda, caso a quantidade de caracteres do campo seja menor que 14.

    Exemplo com 13 caracteres: 1234567890123

    deveria ficar: 01234567890123

    Exemplo com 10 caracteres: 1234567890

    deveria ficar: 00001234567890

    e assim por diante...


    Desde já agradeço!


    avatar
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 12/04/2016

    Re: [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  marcelo marques em 14/4/2018, 16:49

    bom dia Chamon Consultoria tenta ir na propriedade do Campo clicando com botão direto e na opção formatar coloca 0000000000000
    vê se da certo
    bom fim de semana
    avatar
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 12/04/2016

    Re: [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  marcelo marques em 14/4/2018, 16:51

    bom dia Chamon Consultoria tenta ir na propriedade do Campo clicando com botão direto e na opção formatar coloca 0000000000000
    vê se da certo
    bom fim de semana

    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 31/08/2012

    Re: [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  Chamon Consultoria em 14/4/2018, 17:16

    Marcelo,

    obrigado pela sugestão mas não funcionou, pois o campo não é alimentado manualmente.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  Alexandre Neves em 14/4/2018, 17:30

    Boa tarde,
    Currentdb.execute "UPDATE Tabela SET Campo=String(14-Len(Campo),'0') & Campo"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 31/08/2012

    Re: [Resolvido]Acrescentar zeros à esquerda em campo com tamanho específico

    Mensagem  Chamon Consultoria em 14/4/2018, 17:38


    Pelos testes que fiz, aparentemente foi resolvido.

    Segue solução:

    CampoDestino = Format(CampoOrigem, "00000000000000")

    Obrigado pelas sugestões.

      Data/hora atual: 24/9/2018, 15:04