ник: Анатолий (Киев)
Для варианта №1.
В форме вводите дату, затем на Дата_AfterUpdate:
Me!Номер = NZ(DMax("[Номер]","[Накладные]","Year([Дата])=" & Year(Me!Дата)),0) + 1
После этого в многопользовательской среде нужно сразу сохранить (Me.Refresh или Me.Dirty=False).