连续窗体背景颜色及字体变色问题求助！

问题描述：

"记录条数"处文本框 属性（可用、是否锁定）设置失效 （正常情况 可用 为“否”，是否锁定 为“是”时，文本框是不能获得焦点）

现在文本框可以获得焦点，背景色及字体颜色随着点选某行数据跟着变色，求帮忙解决一下这一问题。

如果可能请帮忙注 一下代码的意思万分感谢！

Function test(ByVal A As String)
 Dim ctl As Control
 For Each ctl In Me.Form
 If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
 ctl.FormatConditions(0).Modify acExpression, , "[ID] ='" & A & "'"
 End If
 Next ctl
 End Function


Private Sub Form_Load()


Dim ctl As Control
 For Each ctl In Me.Form
 If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
  ctl.FormatConditions.Add acExpression, acEqual, 1
  ctl.FormatConditions(0).Modify acExpression, , "[ID] ='-1'" '
  ctl.FormatConditions(0).ForeColor = RGB(0, 112, 255)
  ctl.FormatConditions(0).FontBold = True
  ctl.FormatConditions(0).BackColor = RGB(255, 0, 255)
  ctl.OnGotFocus = "=test([ID])"
End If
Next ctl
End Sub

点击下载此附件