Microsoft
Software
Hardware
Network
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
Otras soluciones
Cómo fijar un número de líneas en un informe
Cómo fijar extremo del aeropuerto como servidor del DHCP en el LAN con SonicWall
Ediciones del enlace hipertexto
Agregar la fecha a MySQL
Pares de las preguntas de Apple
El DNS reverso no empareja la bandera del smtp
¿Cómo puedo funcionar conmigo PC en modo seguro?
HISTOGRAMA CON EL CP Y EL ANÁLISIS DE CPK
reglas no corrientes de la perspectiva
volver un valor