vba - 防止访问表单被刷新

Question

我有一个表单，其中我使用文本框进行值添加，并在 AfterUpdate 中将计算值放入其他文本框中。

但是表单会刷新，所有文本框值都变为 0 或 Null。

请协助为什么它会刷新。有没有办法停止刷新表格？

在更新后的文本框中，我只是使用下面的代码来添加值。

Dim avlqty As Integer
Dim prqty As Integer

avlqty = Me.availqty.Value
prqty = Me.purqty.Value

Me.availqty.Value = avlqty + prqty
Me.totalqty.Value = prqty

标签： vbams-access

Answer 1

你写的似乎是递归的

If avlqty = Me.availqty.Value and Me.availqty.Value = avlqty + prqty Then
    Me.availqty.Value = Me.availqty.Value + prqty
End If