índice contador+año
Publicado por leidijaiud (27 intervenciones) el 24/04/2009 14:12:36
Hola a todos
tengo el siguiente código en un formulario:
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim Anyo As Integer
Anyo = Year(Date)
Nº_Entrada = Nz(DMax("Nº_Entrada", "tblDocAdminE", "right(IdDoc,4) =" & Anyo)) + 1
IdDoc = Format(Nº_Entrada, "0") & "/" & Format$(Anyo)
End Sub
Necesito que al registrar un documento de entrada se asigne un número correlativo que empiece otra vez de 1 al cambiar de año y que el índice esté formado por dicho número mas el año actual. He rescatado este código de un mensaje de mimenda y creo que es lo que necesito pero estoy haciendo algo mal porque no me incrementa. Es decir, en cada nuevo registro me asigna siempre 1, o sea:
IdDoc: 1/2009
Nº Entrada: 1
Necesito vuestra ayuda por favor... alguien puede decirme dónde está el fallo?
Gracias por adelantado
tengo el siguiente código en un formulario:
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim Anyo As Integer
Anyo = Year(Date)
Nº_Entrada = Nz(DMax("Nº_Entrada", "tblDocAdminE", "right(IdDoc,4) =" & Anyo)) + 1
IdDoc = Format(Nº_Entrada, "0") & "/" & Format$(Anyo)
End Sub
Necesito que al registrar un documento de entrada se asigne un número correlativo que empiece otra vez de 1 al cambiar de año y que el índice esté formado por dicho número mas el año actual. He rescatado este código de un mensaje de mimenda y creo que es lo que necesito pero estoy haciendo algo mal porque no me incrementa. Es decir, en cada nuevo registro me asigna siempre 1, o sea:
IdDoc: 1/2009
Nº Entrada: 1
Necesito vuestra ayuda por favor... alguien puede decirme dónde está el fallo?
Gracias por adelantado
Valora esta pregunta
0