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