Como buscar registro anterior y incrementar a partir de codigo
Publicado por Sergi (11 intervenciones) el 26/08/2016 12:17:10
Hola buenas, he desarrollado este código que me genera un numero identificador de proyecto con el formato siguiente: 16001, el 16 hace referencia al año actual y el 001 al numero de proyecto actual.
El problema es que tengo, es que no me lee bien el ultimo registro, en mi caso tengo entrado hasta el 16058 y este código me genera el siguiente como 16001 en lugar de 16059.
Como debo hacerlo??
Gracias por adelantado!!
1
2
3
4
Private Sub Form_Current()
If Not Me.NewRecord Then Exit Sub
Me.ID_PROJECTE = Format(Date, "yy") & Format(Nz(DMax("Val( Mid(ID_PROJECTE, 5))", "PROJECTES", "Val( Left(ID_PROJECTE,4)) = " & Format(Date, "yy")), 0) + 1, "000")
End Sub
El problema es que tengo, es que no me lee bien el ultimo registro, en mi caso tengo entrado hasta el 16058 y este código me genera el siguiente como 16001 en lugar de 16059.
Como debo hacerlo??
Gracias por adelantado!!
Valora esta pregunta
0