Home‎ > ‎

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

 
 
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  22 kb v. 1 26 may. 2009 17:50 Jefferson Jimenez
Comments