[Resolvido]Numeração/Ano com Erro

Amigos, Boa Tarde.

Estou usanddo o código numeração do mestre JPaulo como já mencionado nos post anteriores, mas existe um problema que acredito seja configuração, pois quando chega ao registro 999/2016 está ok, o próximo fica 1000/2016 correto, aí que vem o problema pois os próximos deveriam vir 1001/2016, 1002/2016, 1003/2016, mas o que ocorre é que não sai da numeração 1000/2016, ficando todos apartir deste como 1000/2016.

O código que uso é este abaixo:

Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(ControleNumero,3)", "Tab_AnaliseProdutos", "Right(ControleNumero,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

NumeracaoAno = Format(temporario + 1, "000") & "/" & year(Date)

End Function

Já mudei os campos que marquei em vermelho para 4 e 0000 respectivamente, mas não funcionou.
Emite um aviso de erro (Tipo Incompatíveis)

Consegui detectar porque que ocorre, pois como iniciei a contagem com 3 caracteres, e agora quero mudar para 4 caracteres ele não aceita. Então o que gostaria de saber é se tem como entrar com o número 0 neste 999 numerações que já foram geradas, pois não gostaria de editar um a um.

Abraços,

Alessandro

Para mudar de 3 para 4 caracteres os campos existentes na tabela, utilize:

Format(Esquerda([tbl_Clientes].[nteste];3);"0000") & "/" & Direita([tbl_Clientes].[nteste];4)

Substitua a tblClientes e nteste para os nomes da tua tabela e campo respetivamente.

Para que isso não ocorra, sugiro aumentar esses caracteres para 5 para que não tenha que

fazer isso novamente antes do ano acabar.

Espero que tenha feito uma rotina para que a numeração retorne para 0001 quando mudar de ano.

[ ]'s

Noobezinho, Obrigado pela atenção.
Mas não funfou. Tentei inserir esta informação que me passou, alterei o nome da tabela e campo, mas não funcionou.

A Rotina de zerar na virada do ano está sim para reiniciar em 0001.

Mais uma vez agradeço a atenção.

Mais uma pergunta? Este código que alterou funcionou para você?

Sempre testo antes de postar.

Mas esqueci de explicar uma coisa:

Esse código vai na linha atualizar do campo do teu código numa consulta atualização.

Faça a consulta e execute.

Desculpe o esquecimento!  

[ ]'s

Noobezinho, Perfeito.
Funcionou como o esperado. Muito obrigado.

Obs: Lembro a quem for usar o código, após executar a consulta atualização, alterar o módulo para configuração que deseja...

Tópico testado e resolvido...

Ótimo Alessandro

Bom saber que ajudei !!

Boa sorte !