Вопрос : Создавать изготовленный на заказ IDs

Мы имеем IDs следующим образом: 20090001, (основно бюджетный год плюс 4 числа)

When Новый Год прихожу вокруг (2011), котор я нужно IDs автоматически начать сверх на одном снова поэтому первое удостоверение личности года будет 20100001, следующий год это будет 20110001 etc.

Right теперь я имею Кодего следующим образом:

Dim maxIncident как maxIncidentID Variant
Dim как Variant

If Me.intIncidentID.Value = 0 Then

'получает максимальное table
случая # случаев maxIncident =

DMax («[intIncidentID]», «tblIncidents») 'если годом в максимальном номере места не будет текущое год после этого переустановил numbers
, то если CInt (ое (maxIncident, 4)) maxIncidentID = CInt Then
года <> (даты) (ыми (год (дата), 4)) + 1
другое 'тота же год увеличение так maxIncidentID = DMax, то 1
(» [intIncidentID] «, «ые tblIncidents», (maxIncident, 4)) + конец If

1

'установил автоматически принимаемые значения на form
Me.intIncidentID.Value = линия maxIncidentID

End If

Problem Кодего смелейш.  Мне нужно для удостоверения личности для того чтобы иметь 3 ведущий нуля прежде чем 1… правое теперь Новый Год + 1 так выпрямляет теперь свое 2011 но мне нужно оно настолько после этого, котор он говорит 20100001 class=

Ответ : Создавать изготовленный на заказ IDs

попытайтесь это Кодие


Затемните newVal как шнур, curVal как шнур, seq как шнур, maxIncidentID
Если DMax («[intIncidentID]», «tblIncidents») > 0 после этого
    curVal = DMax («[intIncidentID]», «tblIncidents»)
 'испытайте если день этим же
    Если о же, то (curVal, 4) = Cstr (год (дата)) После этого
    seq = форма (правая (curVal, 4) + 1, «0000»)
    newVal = год (дата) & seq
        Еще
    newVal = год (дата) & «0001»
    Закончитесь если
    Еще
    newVal = год (дата) & «0001»
Закончитесь если
    maxIncidentID=newVal