未綁定的文本框未重新查詢或刷新

Question

我有3個未綁定的文本框

• textbox1輸入一個數字
• textbox3輸入一個數字
• textbox5總兩個文本框的

我將此代碼放在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()事件，以便每當兩個textBox中的任何一個值更改時觸發您的計算：

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])