Разные авто номера для конкретного выбора

Question

Мне нужна помощь vba в моем проекте Access.

В нашей компании есть разные строительные площадки.Каждая строительная площадка имеет свой собственный центр затрат.Мы должны составлять отчеты для каждой строительной площадки, связанные с центром затрат.Эти отчеты имеют свой собственный непрерывный номер (связанный с МВЗ)

Я получил формуляр, в котором я могу выбрать МВЗ и хочу, чтобы при создании нового ввода мне показывался последний отчет с номером +1,поэтому для пользователей не может быть ошибок.

Формула выглядит следующим образом

№ относится к текстовому полю Nummer с содержанием raumBTBNR для увеличения номеров отчета. Kostenstelle получил поле со списком KostenstelleAuswahl с содержанием raeumKostenstelleIDRef для учетных центров.

Код на данный момент: (Автор: Густав)

Private Sub Nummer_GotFocus()
Dim NextNumber As Long

                   highest Rep.Nr.        related table      Content of KostenstelleAuswahl
NextNumber = DMax("[raumBTBNR]",        "[tbl_Raeumstellen]", "[KostenstellenIDRef] = " & Me!KostenstelleAuswahl.Value & "") + 1
Me!Nummer = NextNumber

End Sub

Мое решение сейчас - это запрос , где я считаю количествоотчеты, связанные с МВЗ.Но он не заполняется автоматически и хуже, чем приятно. Который сохраняется в MaxNr Пример в моей форме

Буду признателен за помощь! :)

Answer 1

ОК, тогда это должно работать - при выборе Kostenstelle:

Private Sub KostenstelleAuswahl_AfterUpdate()

    Dim NextNumber As Long

    NextNumber = DMax("[raumBTBNR]", "[tbl_Raeumstellen]", "[raeumKostenstelleIDRef] = " & Me!KostenstelleAuswahl.Value & "") + 1

    Me!Nr.Value = NextNumber

End Sub