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

    [Resolvido]Alterar numeração

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Alterar numeração Empty [Resolvido]Alterar numeração

    Mensagem  Assis Sab Out 05, 2019 7:37 am

    Boa tarde Amigos

    Tenho a tabela da imagem com um tipo de numeração manual que consistia em numerar a sequencia de 1 com o ano, para diferentes tipos do campo Operação, e Loja.

    Queria altera-la para ter 7 dígitos (tipo 3 para o numero e 4 para o ano, 0012019), só que na tabela atualmente tenho 12019, 22019 etc.

    como fazer uma rotina para alterar todos os números de 12019, para 0012019 e assim sucessivamente.

    Obrigado

    [Resolvido]Alterar numeração Numera10


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  delsonk Sab Out 05, 2019 8:29 am

    Bom dia, amigo d'além mar!

    Consulta atualização para adicionar "0" (zeros) à esquerda quando o campo Codom da tabela Tbl_Expedicao tiver menos de 6 dígitos e a caixa de seleção Expedida não estiver selecionada.

    Instrução no formato SQL:

    UPDATE Tbl_Expedicao SET Tbl_Expedicao.Codom = "0" & [Codom]
    WHERE (((Len([Codom]))<"6") AND ((Tbl_Expedicao.Expedida)=False));


    Saudações, Delson
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  Assis Sab Out 05, 2019 9:44 am

    delsonk

    Alterei os dados

    Obrigado mas não funcionou



    UPDATE Encomenda SET Encomenda.Encomenda = "0" & [Encomenda]
    WHERE (((Len([Encomenda]))<"7"));


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  delsonk Sab Out 05, 2019 10:29 am

    Opa!

    Deu alguma mensagem de erro ou simplesmente não aconteceu nada?

    Eu uso essa rotina regularmente no meu sistema e funciona normalmente!

    Esses nomes idênticos (tabela Encomenda e nome do campo Encomenda) não estão dando conflito?

    Sugiro que troque o nome da tabela para Tbl_Encomenda!

    Abraço, Delson
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 21/11/2016

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  DamascenoJr. Sab Out 05, 2019 10:39 am

    Código:
    UPDATE Encomenda SET Encomenda.Encomenda = String(7-Len([Encomenda]),"0") & [Encomenda];


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  Assis Sab Out 05, 2019 11:00 am

    Obrigado aos 2 mas não atualiza apesar de informar que sim

    eis a tabela


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 21/11/2016

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  DamascenoJr. Sab Out 05, 2019 11:05 am

    Os usuários deveriam anexar o projeto já na abertura do tópico. Facilitaria muuuito.

    Seu campo é numérico, sendo assim basta acessar as propriedades do campo na tabela e colocar o formato para 0000000


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Alterar numeração Empty Re: [Resolvido]Alterar numeração

    Mensagem  Assis Sab Out 05, 2019 1:29 pm

    Obrigado Ivan

    Bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Qua Jun 16, 2021 4:58 pm