未绑定的文本框不重新查询或刷新

Question

我有 3 个未绑定的文本框

我把这段代码放在Form_Current()

Text5 = Val(Text1) + Val(Text3)

问题是输入两个数字后，text5不显示总数。

我尝试在 Form_Current() 中使用 textbox5.requery，但它仍然无法正常工作。

Answer 1

你不应该为此使用 current 事件

创建以下子项：

Private Sub Compute_Text5()
    Text5.value = Val(Text1.value) + Val(Text3.value)
End Sub

并向 Text1 和 Text3 添加一个 AfterUpdate() 事件，以便在任何 2 个文本框的值发生更改时触发您的计算：

Private Sub Text1_AfterUpdate()
    Compute_Text5
End Sub  

Private Sub Text3_AfterUpdate()
    Compute_Text5
End Sub

Answer 2

Form_Current() 和 .Requery 仅对绑定控件有用。

你并不真的需要 VBA，只需将其用作 Text5 的控制源：

= Val([Text1]) + Val([Text3])

Unbound textbox not requerying or refreshing