несвязанное текстовое поля не requerying или освежающий

Question

У меня есть 3 несвязанных текстовых полей

• textbox1 Введите номер
• textbox3 Введите номер
• textbox5 всего два текстовых поля

Я ставлю этот код в Form_Current()

Text5 = Val(Text1) + Val(Text3) 

Проблема в том, что после ввода двух цифр text5 не отображает общее количество.

Я пробовал использовать textbox5.requery в Form_Current(), но он все еще не работает.

Answer 1

Вы не должны использовать current события для этого

Создайте следующий подпункт:

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

И добавить AfterUpdate() события Text1 и Text3 для того, чтобы вызвать ваше вычисление, когда значения на любом из в 2 Textboxes изменены:

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