Как сделать макрос для генерации номера записи на основе финансового года? (Access 2013)

Я хотел бы создать номер записи, который основан на финансовом году и автоматически продвигается ... Что-то вроде: 2015001, 2015002, 2015003, 2015004; 2016001, 2016002 и др.

У меня уже есть поле [FiscalYr] (вычисляемый тип данных) в моей таблице [Projects] на основе следующего выражения:

IIf(Month([EntryDate])>=10,Year([EntryDate])+1,Year([EntryDate])). 

Поле [EntryDate] является полем даты / времени со значением по умолчанию Date (). Это работает, как я хотел бы.

Есть ли способ, которым я могу взять это число [FiscalYr] и поместить его на передней части трехзначного числа, которое начинается с 001 и увеличивается на 1 на основе предыдущей записи, с номером, сбрасываемым в 001 в начале каждый новый финансовый год? Наш финансовый год начинается 1 октября и заканчивается 30 сентября.

Я хочу, чтобы число генерировалось независимо от того, введена ли информация в таблицу [Projects] или в форму [Projects Form]. Я не хочу, чтобы он генерировался, только если информация введена в форму. Я видел некоторые посты онлайн, предлагающие лучший способ сделать что-то подобное, это использовать макрос Before Change, но большинство примеров, которые я могу найти, основывают значительную часть их макрокодов на дате, и я уже получил Дата выпуска разобрана (я думаю).

Мне было бы хорошо с макросом, который одновременно создал финансовый год из [EntryDate] и создал число одновременно, если это проще, чем работать с моим существующим полем [FiscalYr]. Я всего лишь случайный пользователь Access, поэтому, если я говорю бессмысленно, мне очень жаль - я думаю, что знаю достаточно, чтобы быть опасным.

Большое спасибо, Андреа

Обновление 9/9/2015:

Я отказался от идеи макроса.

Используя советы в блоге Скотгема ( https://scottgem.wordpress.com/2009/11/25/sequential-numbering/ ), я смог запустить и запустить систему последовательной нумерации, но я все еще борюсь с получение номера для сброса в 1 в начале нового финансового года. Я не уверен, что проблема в том, как я генерирую стоимость своего финансового года, или что-то еще полностью.

Вот что у меня есть:

Название таблицы: Проекты

В проектах у меня есть следующие поля, связанные с этой проблемой:

• ProjectNo: число - длинное целое
• Последовательность: число - длинное целое
• EntryFiscalYr: рассчитано - длинное целое число; Выражение гласит:IIf(Month([EntryDate])>=10,Year([EntryDate])+1,Year([EntryDate]))
• EntryDate: дата / время; значение по умолчанию: Дата ()

Название формы: Форма проектов

В моей форме проектов у меня есть следующие элементы управления:

• Последовательность: текстовое поле, источником управления является поле «Последовательность» в таблице «Проекты», значение которого не отображается.

• CreateProjNo: кнопка, событие при нажатии:

   Private Sub CreateProjNo_Click() Me.Sequence = Nz(DMax("[Sequence]", "Projects"), 0) + 1 DoCmd.RunCommand acCmdSaveRecord End Sub 

• ProjectNo: текстовое поле, источник данных управления:

   =[EntryFiscalYr] & Format([Sequence],"000") 

Это отображается так, как мне хотелось бы: 2016001, 2016002 и т. Д.

Я пробовал разные итерации кодов в блоге Скоттгема, чтобы перенести поле EntryFiscalYr в оператор DMax, чтобы посмотреть и посмотреть, следует ли продолжать увеличивать порядковый номер для текущего финансового года или начинать заново для нового финансового года, но ни одна из моих попыток работают.

Я пытался:

 Me.Sequence = Nz(DMax(“[Sequence]”, ”Projects”,”[EntryFiscalYr]) = “ &(Me.[EntryFiscalYr])),0)+1  Me.Sequence = Nz(DMax(“[Sequence]”, ”Projects”, ” [EntryFiscalYr] = ‘“ & Me.[EntryFiscalYr] & “’”),0)+1 

Я также пытался с Me.[txtEntryFiscalYr]вместо Me.[EntryFiscalYr]. Ни одна из этих попыток не сработала.

Я предполагаю, что мои проблемы могут быть связаны с тем, как EntryFiscalYr генерирует для каждой записи, но я не знаю, как решить эту проблему. Я пробовал использовать дату, сгенерированную EntryDate, и она отлично справляется с календарным годом, но важно получить его на основе финансового года и переустановить его в начале каждого нового финансового года.

Кроме того, ProjectNo, сгенерированный в форме Projects, не обновляется до поля ProjectNo в таблице Projects, но, насколько я понимаю, в этом суть. Это правильно?

Любая помощь в корректной работе с финансовым годом будет принята с благодарностью.

Спасибо!