Cuestión : Crear IDs de encargo

Tenemos IDs como sigue: 20090001, (básicamente el ejercicio económico más 4 dígitos) el

When que al Año Nuevo vengo alrededor (2011), necesitan los IDs comenzar automáticamente encima a la una otra vez así que la primera identificación del año será 20100001, el próximo año será 20110001 etc.

ahora tengo el código como sigue: el

Dim maxIncident como maxIncidentID de Variant
Dim como Variant

If Me.intIncidentID.Value = 0 Then

'consigue el table
del incidente # de los incidentes maxIncident = el

de DMax (“[intIncidentID]”, “tblIncidents”) 'si el año en el número máximo del caso no es el año en curso entonces reajustó el numbers
si CInt (dejado (maxIncident, 4)) el maxIncidentID = CInt de Then
del año del <> (fecha) (dejados (año (fecha), 4)) + de 1
'del mismo año aumento otro tan por el maxIncidentID = DMax de 1
(” [intIncidentID] “, los “tblIncidents”, dejados (maxIncident, 4)) + el extremo If

de 1

'fijó los valores prefijados en el form
Me.intIncidentID.Value = línea del maxIncidentID

End If

Problem de código es en negrilla.  Qué necesito está para que la identificación tenga 3 ceros principales antes de que el 1… ahora el Año Nuevo el + 1 tan ahora su 2011 pero yo lo necesite tan entonces que dice 20100001 class= del

Respuesta : Crear IDs de encargo

intentar esto los códigos


Amortiguar newVal como secuencia, curVal como secuencia, seq como secuencia, maxIncidentID
Si DMax (“[intIncidentID]”, “tblIncidents”) > 0 entonces
    curVal = DMax (“[intIncidentID]”, “tblIncidents”)
 'probar si el día es igual
    Si está ida (curVal, 4) = Cstr (año (fecha)) Entonces
    seq = formato (correcto (curVal, 4) + 1, “0000”)
    newVal = año (fecha) y seq
       
    newVal = año (fecha) y “0001”
    Terminar si
   
    newVal = año (fecha) y “0001”
Terminar si
    maxIncidentID=newVal