Pergunta : Criando IDs feitos sob encomenda

Nós temos IDs como segue: 20090001, (basicamente o exercício orçamantal mais 4 dígitos) o

When que um o ano novo venho ao redor (2011), eu precisa os IDs de começar automaticamente sobre outra vez em um assim que a primeira identificação do ano será 20100001, o próximo ano será 20110001 etc.

agora eu tenho o código como segue: o

Dim maxIncident como o maxIncidentID de Variant
Dim como Variant

If Me.intIncidentID.Value = 0 Then

'começ o table
do incidente # dos incidentes maxIncident = o

de DMax (“[intIncidentID]”, “tblIncidents”) 'se o ano no número máximo do caso não é o ano em curso restaurou então o numbers
se CInt (deixado (maxIncident, 4)) maxIncidentID = CInt de Then
do ano do <> (data) (deixado (ano (data), 4)) + de 1
mais 'do mesmo ano aumento assim pelo maxIncidentID = pelo DMax de 1
(” [intIncidentID] “, “tblIncidents”, deixados (maxIncident, 4)) + a extremidade If

de 1

'ajustou valores de defeito no form
Me.intIncidentID.Value = linha do maxIncidentID

End If

Problem de código é bold(realce).  O que eu preciso é para que a identificação tenha 3 zero principais antes que o 1… agora o ano novo + o 1 tão agora seu 2011 mas mim o precise tão então que diz 20100001 class= do

Resposta : Criando IDs feitos sob encomenda

tentar isto códigos


Escurecer newVal como a corda, curVal como a corda, segs. como a corda, maxIncidentID
Se DMax (“[intIncidentID]”, “tblIncidents”) > 0 então
    curVal = DMax (“[intIncidentID]”, “tblIncidents”)
 'testar se o dia é o mesmo
    Se saido (curVal, 4) = Cstr (ano (data)) Então
    segs. = formato ((curVal, 4) + 1, “0000 direitos”)
    newVal = ano (data) & segs.
        Mais
    newVal = ano (data) & “0001”
    Terminar se
    Mais
    newVal = ano (data) & “0001”
Terminar se
    maxIncidentID=newVal