U kunt deze functie gebruiken - u moet het bevel wijzigen DMAx om uw eigen gebiedsnaam en lijst te gebruiken.
Functie NextVal ()
'veronderstelt het formaat altijd als IRP0001_R01_170710 is
Schemerige lastval
Verduister eerst als Koord
Verduister tweede als Koord
Verduister derde als Koord
lastval = wijzigt Nz (DMax („IDFieldname“, „tblA“, „ging (IDfieldname, 3) = „IRP““) weg, "") 'deze lijn
Als lastval = "" toen
MsgBox „Geen Vorige Waarde“
NextVal = ""
De Functie van de uitgang
Eind als
eerst = „IRP“ & Formaat (Medio Val ((lastval, 4)) + 1, „0000“) &“ - „
tweede = Medio (lastval, 9, 4)
derde = Formaat (Datum, „DDMMYY“)
NextVal = eerst & tweede & derde
De Functie van het eind
