Question : Création des IDs faits sur commande

Nous avons des IDs comme suit : 20090001, (fondamentalement l'exercice budgétaire plus 4 chiffres) le

When que par nouvelle année vient autour (2011), j'ont besoin des IDs pour commencer automatiquement plus d'à un encore ainsi la première identification de l'année sera 20100001, l'année prochaine ce sera 20110001 etc.

en ce moment j'ai le code comme suit : le

Dim maxIncident comme maxIncidentID de Variant
Dim comme Variant

If Me.intIncidentID.Value = 0 Then

'obtiennent le table
d'incident # d'incidents maxIncident =

de DMax (le « [intIncidentID] », « tblIncidents ») 'si l'année dans le nombre maximum de cas n'est pas l'année en cours remettait à zéro alors le numbers
si CInt (laissé (maxIncident, 4)) le maxIncidentID = le CInt de Then
d'année de <> (date) (laissés (année (date), 4)) + de 1
'de même année augmentation d'autre ainsi par le maxIncidentID = le DMax de 1
( » [intIncidentID] « , les « tblIncidents », laissés (maxIncident, 4)) + l'extrémité If

de 1

'a placé des valeurs par défaut sur le form
Me.intIncidentID.Value = ligne du maxIncidentID

End If

Problem de code est "BOLD".  De ce que j'ai besoin est pour que l'identification ait 3 principaux zéros avant que le 1… en ce moment la nouvelle année + le 1 tellement en ce moment son 2011 mais moi ait besoin de lui tellement alors qu'il indique 20100001 class= de

Réponse : Création des IDs faits sur commande

essayer ceci des codes


Obscurcir newVal comme corde, curVal comme corde, seq comme corde, maxIncidentID
Si DMax (« [intIncidentID] », « tblIncidents ») > 0 puis
    curVal = DMax (« [intIncidentID] », « tblIncidents »)
 'examiner si le jour est identique
    Si parti (curVal, 4) = Cstr (année (date)) Puis
    seq = format (droit (curVal, 4) + 1, « 0000 »)
    newVal = année (date) et seq
        Autrement
    newVal = année (date) et « 0001 »
    Finir si
    Autrement
    newVal = année (date) et « 0001 »
Finir si
    maxIncidentID=newVal