Hola grupo, tengouna base de datos que asigna un correlativo que se
compone del año y el numero 2010-001
al comenzar el nuevo año dejo de funcionar alguien me puede ayudar con
esto:
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim miCorrelativo As Integer
Dim miAño As Integer
miAño = Year(Date)
miCorrelativo = CInt(Val(Right(DMax("Idpropuesta", "t_Propuestas",
"AñoPropuesta=" & miAño), 3)))
If miCorrelativo < 10 Then
Me.IdPropuesta = Year(Date) & "-" & "00" & miCorrelativo + 1
ElseIf miCorrelativo < 100 Then
Me.IdPropuesta = Year(Date) & "-" & "0" & miCorrelativo + 1
ElseIf Len(miCorrelativo) = 1 Then
Me.IdPropuesta = Year(Date) & "-" & miCorrelativo + 1
End If
End Sub
Leer las respuestas