текстовое поле отображает неправильный цвет

Question

У меня ошибка:

В моем отчете Microsoft Access есть текстовое поле, которое должно иметь черный цвет переднего плана, но вместо этого отображается розовый.

Достигнут код, устанавливающий цвет переднего цвета на черный, иЦвет переднего плана установлен на черный, но когда отчет закончен, текстовое поле отображает розовое число.

В моем коде нет других ссылок на текстовое поле.

Цвет по умолчанию для текстового поля: #7F7F7F который серый.

Кроме того, тот же код правильно устанавливает для других текстовых полей черный цвет переднего плана.

У меня есть перепроверенные свойства между текстовыми полями, и все они одинаковы.

Чего мне не хватать?

Это вызов функции для установки текстового поля:

SetPointsTextBox frmWeeklyMotivationSystemReport2.Controls!txtSaturday3, status

Sub SetPointsTextBox(textbox As Control, status As clsStatus2)
  If status.DisplayTodaysPoints = 0 And status.DayEvent > 0 Then
    textbox = DisplayEventasString(status.DayEvent)
    textbox.ForeColor = vbBlue
  Else
    textbox = status.DisplayTodaysPoints
    If status.status = 4 Then
      If status.DisplayTodaysPoints > 0 Then
        textbox.ForeColor = vbRed
      Else
        If status.DisplayTodaysPoints = 0 Then
          textbox = "" 
        Else
          textbox = 0 
          textbox.ForeColor = RGB(205, 155, 29)
        End If
      End If
    Else
      If status.DisplayTodaysPoints < 0 Then
        textbox.ForeColor = vbRed
      ElseIf status.status = 2 Or status.status = 9 Then
        textbox.ForeColor = vbBlue
      Else
        textbox.ForeColor = vbBlack 'code gets to here and changes the forecolor to 0
      End If
    End If
  End If
End Sub

Answer 1

удаление и воссоздание элемента управления сработало.спасибо за полезное предложение.