Frage : Schaffung der kundenspezifischen IDs

Wir haben IDs, wie folgt: 20090001, (im Allgemeinen das Finanzjahr plus 4 Stellen)

When, das, ein neues Jahr herum (2011), ich komme, benötigen die IDs, mit einen automatisch vorbei wieder zu beginnen, also ist die erste Identifikation des Jahres 20100001, das nächste Jahr es 20110001 etc.

ist, im Augenblick ich den Code habe, wie folgt: das

Dim maxIncident als Variant
Dim maxIncidentID als Variant

If Me.intIncidentID.Value = 0 Then

'erhalten das maximale maxIncident Vorfall # Vorfälle table
= DMax („[intIncidentID]“, „tblIncidents“)

', wenn das Jahr in der Höchstfalzahl nicht das laufende Jahr zurückstellte dann das numbers
ist, wenn CInt ((maxIncident, 4)) <> Jahr (Datum) Then
das maxIncidentID = CInt (gelassen, gelassen (Jahr (Datum), 4)) + 1
sonst 'des selben Jahrs Zunahme so durch 1
maxIncidentID = DMax (“ [intIncidentID] „, „die tblIncidents“, gelassen (maxIncident, 4)) + 1

einstellte Ende If

'Default-Werte auf form
Me.intIncidentID.Value = maxIncidentID

End If

Problem Linie des Codes ist fett tt.  Was ich benötige, ist, damit die Identifikation 3 führende null hat, bevor das 1… im Augenblick das neue Jahr das + 1 so im Augenblick sein 2011 aber ich es benötigt, so dann, das es 20100001 sagt

Antwort : Schaffung der kundenspezifischen IDs

dieses versuchen Codes


newVal als Schnur verdunkeln, die als Schnur curVal ist, die als Schnur, maxIncidentID folgend ist
Wenn DMax („[intIncidentID]“, „tblIncidents“) > 0 dann
    curVal = DMax („[intIncidentID]“, „tblIncidents“)
 'prüfen, wenn der Tag der selbe ist
    Wenn es verlassen (curVal, 4) = Cstr (Jahr (Datum)) Dann
    folgend = Format (recht (curVal, 4) + 1, „0000“)
    newVal = Jahr (Datum) u. folgendes
        Sonst
    newVal = Jahr (Datum) u. „0001“
    Beenden wenn
    Sonst
    newVal = Jahr (Datum) u. „0001“
Beenden wenn
    maxIncidentID=newVal