Textbox_AfterUpdate 无法使用其他控件

Question

为什么我不能在 afterupdate 函数中更改访问表单中另一个控件的值？

    Private Sub cNPSrate_AfterUpdate() 'Form_new_opinion_in!
If Not IsNull(cNPSRate) Then
    Select Case cNPSRate
        Case 1 To 6
            cNPSRate.BackColor = RGB(255, 0, 0) And cSegmentNPS.Text = "KRYTYK"
        Case 7 To 8
            cNPSRate.BackColor = RGB(255, 255, 0) And cSegmentNPS.Text = "NEUTRALNY"
        Case 9 To 10
            cNPSRate.BackColor = RGB(0, 255, 0) And cSegmentNPS.Text = "PROMOTOR"
    End Select
Else
cNPSRate.BackColor = RGB(255, 255, 255) And cSegmentNPS.Text = Null
End If
End Sub

如果我删除 And cSegmentNPS.Text，代码就可以工作。我不能在这个函数中使用另一个控件还是我犯了一些错误？

cNPSRate 和 cSegmentNPS 是文本框

Answer 1

文本框的 .Text 属性仅在该文本框具有焦点时可用。在任何其他时间，请改用其 .Value 属性。

我还会将每个操作放在单独的一行中，而不是将它们与 And 组合在一行中。

所以我建议您修改代码以遵循此模式...

cNPSRate.BackColor = RGB(255, 0, 0)
cSegmentNPS.Value = "KRYTYK"

Textbox_AfterUpdate 无法使用其他控件

Textbox_AfterUpdate not working with another control

ms-access

vba