ник: Гоблин
Вот методом долгих мытарств дошел до элементарного. Оказалось все не так сложно, как казалось раньше, и не так просто, как кажется сейчас.
Вот пристегнул. Начинает счет по порядку с каждого нового года. (перевожу системное время на год, запускаю форму и заполняю). Итак каждый год счет п/п с 1.=>
А НАДО С КАЖДОГО 1 ДЕКАБРЯ!! (мать его)
Добавляю функцию dateadd на месяц вперед от текущей. Новый код таков:
Dim a As Integer
a = Year(DateAdd("m", 1, Date))
If Me.№п_п = 0 Then
Me.№п_п = Nz(DMax("№п_п", "[Таблица1]", "Year([Таблица1]!Дата)= " & a & ""), 0) + 1
Else
End If
Как результат с 1 декабря возобновляет счет с 1, но т.к. в течение декабря условие не совпадает, то штампует 1 весь месяц, пока не наступит январь.
Не добавлять же технологическое поле для учета виртуального года. Подскажите, как скорректировать полученный результат. Не соображу блин.