对于当前形式，这是

If (mytoggle Is Me.ActiveControl) Then

对于当前的Access.Application:

This for the current Access.Application:

If (mytoggle Is Screen.ActiveControl) Then

请注意，如果没有控件具有焦点，则* .ActiveControl可能不存在.

Be careful, if no control has focus, *.ActiveControl may not exist.