获取焦点，改变颜色。失去焦点，恢复颜色

源码：

Option Compare Database

Option Explicit

Private FocusName As Control

Public Function GetFocus()

    Form.ActiveControl.BackColor = 967423

    Set FocusName = Form.ActiveControl

End Function

Public Function LoseFocus()

    FocusName.BackColor = 16777215

End Function