文本框变灰

Greying out textboxes

嘿，我有一个复选框，我想要一个链接到的文本框，如果未单击该复选框，它会变成灰色。我在复选框的单击事件下有代码，如果第一次单击该框，这将起作用.....它允许启用文本框。但我希望如果使用过的人不小心点击了复选框，他们可以点击复选框并且文本框再次变回灰色。我不确定我是否有关于复选框错误事件的代码。谢谢

Private Sub FlightScheduleAffected_Click()
If IsNull(Me.FlightScheduleAffected.Value) Then
Me.TimeMOCCNotified.Enabled = False
Else
Me.TimeMOCCNotified.Enabled = True
End If
End Sub

复选框的值应该是真或假，它永远不会为空。您希望您的 if 语句显示为

If Me.FlightScheduleAffected.Value Then
    Me.TimeMOCCNotified.Enabled = True
Else
    Me.TimeMOCCNotified.Enabled = False
End If