0

我的主表单中有一个子表单(连续模式),用于添加一些带有描述、数量和价格的文章。此汇总表的页脚是一个文本字段,它通过使用 总结子表单的所有条目=sum([amount] * [price])。到目前为止有效。

每次我在子表单中添加新条目时,都会计算此文本字段。现在我还想在我的主要表单的文本字段中包含这个总和(这实际上也不是问题)。在连续表单中的“ AfterUpdate”事件中,我将值写入主表单中的文本字段。这最初也很有效。combofieldsum-textfield

但是现在(我不知道发生了什么变化),我在主窗体中的文本字段没有得到新值,因为vba代码运行得比我的子窗体页脚中计算的文本字段计算它的新值要快。它总是将旧值写入主窗体。我在代码中使用刹车点发现了这个问题。因此,在访问完成计算所有子表单条目的总和之前,旧值被写入主表单。

这是我用来将子表单文本字段中的值写入主表单文本字段的代码:

Private Sub txt_Article_AfterUpdate()
    Me.Refresh
    Me.Parent!txt_Amount = Int(Me.txt_SumOfAmountsInContinuousForm * 20 + 0.5) / 20
End Sub

我希望我的问题的描述是可以理解的。描述它有点困难:) 有没有办法用我的 vba 代码等待,直到 sum-field 计算出它的新值?

谢谢

4

0 回答 0