Campo Autonumerico Mes y Año
Pregunto alguien del foro:
Como registrar un documento o campo autonumerico de entrada que asigne un número correlativo....
Y 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.
El Codigo:
Option Compare Database
Private Sub Form_BeforeInsert(Cancel As Integer)
'Asignamos las variables que despues uzaremos
Dim AñoActual As String
Dim NumAsignado As Long
'*************************************************
' Codigo Cortesia de Jefferson Jimenez *
'Extraido de una Funcion Publica de Eduardo Olaz *
' y adapatdo para la LWP de forma simple *
'*************************************************
'Creamos una Constante numerica que antepondra cuatro _
digitos de ceros eliminandoze por valores enteros
Const Ceros As String = "0000"
'Creamos la variable que nos dara el año en curso
AñoActual = Format(Now, _
"yyyy") & "/"
AñoActual = Nz(DMax( _
"IdDoc", _
"tblDocAdminE", _
"IdDoc like '" _
& AñoActual & "*'"), _
AñoActual & Ceros)
'Creamos la variable que nos dara el Numero de la _
Factura e iremos sustituyendo los ceros de la derecha _
por valores numericos segun sea tomado el año en curso
NumAsignado = Val(Right(AñoActual, Len(Ceros)))
NumAsignado = NumAsignado + 1
'Indicamos las formula que ha de tomar para asignarle _
valor al campo de IdDoc e igualmente al Nº_Entrada
IdDoc = Left(AñoActual, 5) & Format(NumAsignado, Ceros)
Nº_Entrada = Format(NumAsignado, Ceros)
'No coloco tratamientos de errores puesto que no deberian haber
End Sub 'Finalizamos