ник: Дядя Федор
'НУМЕРАТОР РЕКЛАМАЦИЙ
Public Function newnomreklamac(tekd As Date) As Integer
newnomreklamac = Nz(DMax("[NomRekl]", "[TblReklamacNakl]", "YEAR([DATAREKLAMAC])=" & Year(tekd)), 0) + 1
End Function
|
Вставляешь при добавлении новой записи. и все.
дата добавлена, чтобы в каждом году начиналось все снова ... и снова