针对特定选择的不同AutoNumbers

Question

我需要一些vba帮助我的访问项目。

在我们公司，我们有不同的建筑工地。每个建筑工地都有自己的成本中心。我们必须向每一个与成本中心有关的建筑地盘作出报告。这些报告有自己的连续数量(与成本中心有关)。

我有一个公式，在那里我可以选择成本中心，并希望显示最新的报告号码+1时，作出新的输入，这样就不会发生错误的用户。

公式如下

Nr..与文本字段Nummer相关，其中的内容raumBTBNR用于增加报表编号。Kostenstelle得到了名为KostenstelleAuswahl的组合框，并为成本中心提供了内容raeumKostenstelleIDRef。

迄今为止的代码：(Gustav的学分)

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