如果你的控件是文本框，名称为‚txt字段‛，写如下代码：

Private Sub txt字段_GotFocus()

Me.txt字段.BackColor = 12632256

End Sub

当中‚12632256‛是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：

Private Sub txt字段_LostFocus()

Me.txt字段.BackColor = 16777215

End Sub