[Resolvido]Numerações automáticas e sequenciais com "reset" na mudança de ano

Olá boa tarde,

Gostaria de criar uma Base de Dados de numeração de entrada do correio, mas gostaria que, em cada novo ano, esta numeração reiniciasse.

Sabem de alguma BD que me sirva de exemplo ou código para integrar na BD que faça o re-início automaticamente a cada novo ano.

Obrigado pela ajuda,

Rui

basta dar uma procurada nos exemplos

http://maximoaccess.forumeiros.com/t72-numeracao-muda-conforme-ano

Bolas, esqueci que esse exemplo no repositório do Mestre. Obrigado Ricardo.

Não vi o exemplo do mestre ainda, mas como eu já tinha escrevido, lá vai, para não perder o trabalho:

Uma ideia seria você colocar seu campo Chave Primária como número e não Numeração Automática. Se seu formulário for vinculado, coloque assim no evento "Ao carregar" do formulário:

If DCount("*", "NomeTabela") = 0 Or DMax(Left("Código", "NomeTabela"), 4) < Year(Date) Then
Me.Código = Year(Date) & "/" & 0001
Else
Me.Código = Year(Date) & "/" & DMax(Right("Código", "NomeTabela"), 4) + 1
End If

Esse método colocaria os registros assim:

2011/0001
2011/0002
2011/0003
...

Mas não faz o reset Criquio, pelo que me apercebi, ou estou errado?

A ideia é que seja feita. Olha:

If DCount("*", "NomeTabela") = 0 Or DMax(Left("Código", "NomeTabela"), 4) < Year(Date) Then

Pela segunda condição do código, se os quatro primeiros números, relativos ao ano do maior número na tabela, for menor ao ano atual, reinicia tudo com ano e mais 0001.
Só falta uma coisinha aí que eu me esqueci, de formatar o final para ser sempre 4 números.

Testei à pressa e não funfou inicialmente, talvez fosse isso. Logo que possível vou testar de novo.

Mestre Criquio,

Obrigado pela dica.

Também poderá ser uma boa solução.

Obrigado a todos pela vossa ajuda.