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"