MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Numeração numero ano tipo 00012020.

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 29/4/2020, 23:23

    Boa noite Amigos

    No exemplo que anexo preciso de ajuda para este tipo de numeração .

    Tem relação com a " Loja " e o " Tipo de Documento "

    Podemos ter assim:

    Loja   TipoDoc   Número
    Sede  Fact - S    00012020, e depois segue a sequência, 0022020, 0032020 etc.
    Sede  VD - S      00012020  e depois segue a sequência, 0022020, 0032020 etc.
    Sede  FR  - S      00012020  e depois segue a sequência, 0022020, 0032020 etc.

    Baia  Fact - B    00012020, e depois segue a sequência, 0022020, 0032020 etc.
    Baia  VD - B      00012020  e depois segue a sequência, 0022020, 0032020 etc.
    Baia  FR  - B      00012020  e depois segue a sequência, 0022020, 0032020 etc.

    PROJ  Fact - P    00012020, e depois segue a sequência, 0022020, 0032020 etc.
    PROJ  VD - P      00012020  e depois segue a sequência, 0022020, 0032020 etc.
    PROJ  FR  - P      00012020  e depois segue a sequência, 0022020, 0032020 etc.

    Obrigado
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 5 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 381
    Registrado : 25/02/2016

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  FranklinJSP em 30/4/2020, 01:15

    Boa Noite Assis

    Da uma olhada

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 09:08

    Bom dia Franklin

    Aqui no meu Office 2013 32 não faz a sequência, o numero é sempre igual veja a imagem.

    [Resolvido]Numeração numero ano tipo 00012020. Sem_t140

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 11:25

    Bom dia Assis,

    Fiz uma demo que penso ser o que você pretende.

    O exemplo cria uma numeração tipo 0001/2020, altere para o pretendido.

    Esta numeração reiniciará automaticamente a cada inicio de ano.

    A numeração será criada após atualizar o campo "Operacao", visto que depende deste valor a próxima numeração.

    Boa sorte
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentContaTeste_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 11 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 13:51

    Carlos

    Obrigado pela atenção prestada.

    Podia alterar o exemplo que postou e altera-lo.

    Tirava o campo ID, e o meu campo LN é que serve de numeração automática.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 13:57

    Veja a alteração.
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentContaTeste_v3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 14 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 14:09

    Carlos

    Podia usar a minha tabela que está na Mensagem Nº 1 ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 14:13

    Não consigo abrir essa versão do access, estou com o 2003 neste momento...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 14:20

    Carlos

    Tem os campos da tabela na mensagem Nº 3

    Mas a tabela tem que se chamar "Encomenda".


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 14:42

    Veja esta versão.
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentContaTeste_v4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 9 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 15:29

    Carlos

    Funciona.

    Tentei tirar a barra entre o numero e o ano mas deixa de somar + 1 .

    Em vez de ficar assim 0001/2020

    Ficava 00012020

    Tem como ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 15:52

    Altere apenas o código do Módulo.
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentContaTeste_v5.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 10 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 16:05

    Obrigado Carlos

    Ainda não testei o ultimo mas breve informo.

    Carlos

    Com o sistema que tenho consigo numerar o primeiro numero de cada tipo de documento com o valor certo "00012020"

    Mas quando vou registar o segundo tenho o seguinte resultado 01212020

    O código é este abaixo, onde está o erro ?

    Me.Encomenda = Format(Mid(DLast("encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"), 1, 3) + 1) & Year(Me.Data)

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 16:49

    O exemplo que lhe enviei faz exactamente o que pretende, e ainda lhe reinicia a contagem sempre que muda de ano.
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 30/4/2020, 19:11

    Mas se pretende continuar com a sua expressão tente assim:

    Me.Encomenda = Format(Left(DLast("encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"),4) + 1 & Year(Me.Data), "00000000")
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 30/4/2020, 19:52

    Carlos

    Obrigado pela paciência, ficou perfeita a alteração que fiz.

    Foi só alterar o campo "Encomenda" para texto e o seu exemplo encaixou na perfeição na minha tabela que já tem numeração de 3 anos e + ou - 5600 registos.

    O único senão será no final do ano quando o computador mudar a data ara 2021 e ainda poder haver registos de 2020 para realizar.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 1/5/2020, 12:38

    Assis, posso tentar arranjar uma solução para o novo ano.

    Para tal preciso que me diga qual o método que acabou por usar (minha demo ou a função DLast).

    E, mais importante, se no próximo ano você SÓ irá iniciar uma nova sequência depois que todos os registos do ano anterior estiverem inseridos, ou se poderá iniciar uma nova série no novo ano, e à posteriori teria que inserir dados do ano anterior.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 1/5/2020, 14:41

    Boa tarde Carlos
    Estou a usar o exemplo da mensagem 12.
    Se para o Ano conseguir apanhar o Ano do campo "Data
    seria o ideal.
    Imagine já em 2021 ter um registo para fazer com a data de 30-12-2019.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 1/5/2020, 15:00

    Entendi Assis,

    Na segunda feira lhe arranjarei uma solução.

    Entretanto queria alertar que precisa prevenir que a autonumeração só sai no caso dos campos "Loja" e "Operacao" estão preenchidos, caso contrário, se executar com um desses campos vazios, o código irá iniciar uma nova série com esses dados, como sendo uma nova combinação de campos.

    Se assim entender, posso incluir essa prevenção no próximo código.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 1/5/2020, 15:27

    Obrigado Carlos

    No formulário já tenho a prevenção de obrigar a preencher todos os campos do formulário.

    Bom fim de semana e

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 4/5/2020, 09:50

    Bom dia Assis,

    Como prometido aqui tem uma solução para o seu propósito.

    Adaptações:

    Como o sistema terá que ser informado do Ano a que se refere o registo a inserir, criei um campo desvinculado "AnosAnteriores".

    Este campo no caso de NÃO preenchido, não afecta o procedimento já anteriormente testado.

    No caso de preenchido com um ano qualquer, o sistema irá iniciar uma nova sequência com os dados inseridos nesse mesmo ano, caso ainda não haja nenhum registo com essa combinação. Ou cria a numeração seguinte no caso de já haver registos com essa combinação.

    Existe também um novo Módulo "BasContaAnteriores" que tem uma String referente ao novo Campo "AnoData = Forms!frm_Master!AnosAnteriores", aqui terá que alterar para os nomes correspondentes à sua DB.

    Outras pequenas alterações terá que fazer no código do Form, que deixei a informação em comentário.

    Teste e disponha se precisar de ajuda.
    Anexos
    [Resolvido]Numeração numero ano tipo 00012020. AttachmentContaTeste_v6.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 15 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  Assis em 4/5/2020, 14:41

    Boa tarde Carlos

    Obrigado ficou perfeito



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 310
    Registrado : 28/10/2010

    [Resolvido]Numeração numero ano tipo 00012020. Empty Re: [Resolvido]Numeração numero ano tipo 00012020.

    Mensagem  zcarloslopes em 4/5/2020, 14:44

    De nada assis,

    Fico contente por ter resultado.

      Data/hora atual: 21/10/2020, 16:45