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是TEXTBOXes

Answer 1

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

我也会将每个动作放在自己的行上，而不是将它们与And组合在一行上。

因此，我建议您修改代码以遵循此模式。。。

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