Question

我在Access项目中需要一些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

我现在的解决方案是query，我在其中计算与成本中心相关的报告数量。但是它不会自动填充，而且比正常情况更糟。 哪个保存在MaxNr Example in my form

我将不胜感激！：）

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

针对特定选择的不同自动编号

1 个答案: