[Resolvido]Numeração Automatica Com Ano e Mês + Numero trava numeração em 2013091000

Saudações !

Testei a função em um banco que estou construindo e percebi que a numeração do campo Titulo parou no número 2013091000 e a todo novo registro que insiro o número continua o mesmo 2013091000.  Como fazer para a numeração dar continuidade?

Alterei o código conforme a seguir, porém ficou travado agora no 201309100000

Private Sub Form_Current()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Titulo", "tb_guia_assistencia_medica"), 0)

If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o 001 para iniciar
numeroencontrado = Format(Date, "yyyy") & Format(Date, "mm") & "00001"
'devolve ao campo a nova numeração
Me.Titulo.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Right(DMax("Titulo", "tb_guia_assistencia_medica"), 5) + 1
'devolve ao campo a nova numeração
Me.Titulo.Value = Format(Date, "yyyy") & Format(Date, "mm") & Format(proximoNumero, "00000")



'atualiza
DoCmd.RefreshRecord
End If
End Sub


Esta dúvida refere-se ao tópico:
http://maximoaccess.forumeiros.com/t11225-resolvidonumeracao-automatica-com-ano-e-mes-numero

att,
Williams.

Manda um modelo do BD ai.

Cumprimentos.

Ola bom dia;

Onde você tem DMax, altere para DLast.

Teste e retorne por favor.


Private Sub Form_Current()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DLast("Titulo", "tb_guia_assistencia_medica"), 0)

If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o 001 para iniciar
numeroencontrado = Format(Date, "yyyy") & Format(Date, "mm") & "0001"
'devolve ao campo a nova numeração
Me.Titulo.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Right(DLast("Titulo", "tb_guia_assistencia_medica"), 5) + 1
'devolve ao campo a nova numeração
Me.Titulo.Value = Format(Date, "yyyy") & Format(Date, "mm") & Format(proximoNumero, "0000")
'atualiza
DoCmd.Recalc
End If
End Sub

Estou fazendo os testes para passar o resultado.  Antes de dar uma posição gostaria de entender como seria o funcionamento em relação aos digitos.  Conforme o código foi escrito a numeração vai travar novamente quando atingir o número máximo de caracteres especificado?  Pelo que coloquei seriam 5 dígitos: 00000, ou seja, quando chegar a 99999 não teria como ir para o próximo número? Caso isso ocorra mesmo não seria uma alternativa reiniciar a contagem toda vez que mudasse de mês ?

att,
Williams.

Se necessita do numero do mês na numeração... Podes aumentar os dígitos ou reiniciar a numeração ao virar o mês.

Poste um modelo conciso do bd com os objetos envolvidos...

Cumprimentos.

Piloto,

Segue bd conforme solicitado.
Fiz alguns teste e deu a mensagem de estouro, e o código não consegue pegar o próximo número.

grato pela atenção,
Williams.

Rapaz, quando construí esse código, foi para um usuário do fórum e não especificamente para si.

Como as realidades de cada um são diferentes, e alterão sem saber o que estão a fazer, dá nisso ae.

Você tem 4 digitos na primeira instrução do numeroencontrado ;

numeroencontrado = Format(Date, "yyyy") & Format(Date, "mm") & "0001"

e depois tem Direita 5

proximoNumero = Right(DLast("Titulo", "tb_guia_assistencia_medica"), 5) + 1

Logico que dá estouro.

Olá JPaulo,

Você têm razão e por isso peço desculpas, afinal tentei utilizar um código que foi feito para outra situação achando que serviria completamente para minha realidade  e sem saber o real funcionamento do mesmo.
Eu gostaria de fazer da seguinte forma: reiniciar a contagem toda vez que mudasse de mês.

Exemplo:

2013097950
2013097951
2013100001
2013100002
2013100003
2013100004

Poderia me ajudar neste sentido?

Grato,
Williams.

Tente adaptar;

http://maximoaccess.forumeiros.com/t12852-resolvidonumerador-de-acordo-com-o-ano-problemas-com-duplicacao

Resolvido com as orientações grato.
Williams.

Obrigado pelo retorno o forum agradece.

Obrigado JP..

Sucesso William.