在复选框的“更新后”事件中设置如下:Private Sub Check1_AfterUpdate()If Me.Check1 = True ThenMe.Text1.Enabled = TrueElseMe.Text1.Enabled = FalseEnd IfEnd Sub以上是为了更直观的代码,实际上以下代码更简洁:Private Sub Check1_AfterUpdate()Me.Text1.Enabled = Me.Check1End Sub