如何测试特定控件是否具有焦点?

use*_*704 4 ms-access vba ms-access-2007 access-vba

我有访问2007表单,我想测试一个特定的控件(切换按钮)是否有焦点,

就像是 :

if gotfocus(mytoggle) then
dosomething
endif
Run Code Online (Sandbox Code Playgroud)

或者像是:

if me.mytoggle.setfocus = true then
dosomething
endif
Run Code Online (Sandbox Code Playgroud)

我已经搜索过,找不到这个,有人可以告诉我这是做什么的正确吗?

jac*_*ouh 7

对于当前形式:

If (mytoggle Is Me.ActiveControl) Then
Run Code Online (Sandbox Code Playgroud)

这对于当前的Access.Application:

If (mytoggle Is Screen.ActiveControl) Then
Run Code Online (Sandbox Code Playgroud)

注意,如果没有控件有焦点,*.ActiveControl可能不存在.