如何获得焦点在子窗体中的控件？

Question

当me.myControl获得焦点并且我试图设置

时，Ms-access VBA引发错误。

me.myControl.visible=false 

因此，我使用Screen.ActiveControl来确定myControl是否具有焦点：

if me.myControl.name = Screen.ActiveControl.name then
    me.otherControl.SetFocus
end if
me.myControl.visible=false 

不幸的是，似乎每个子窗体都可以有自己的“ ActiveControl”。我没有找到确定它是哪一种的方法。因此，我必须执行以下解决方法：

on error goto setMyfocus
me.subform.Form!myCtrlInSubform.visible = false
exit function

setMyfocus:
me.subform.Form!otherCtrlInSubform.SetFocus
me.subform.Form!myCtrlInSubform.visible = false
exit function

显然，这不是一个好的解决方案。那么有没有办法找出子表单中哪个控件具有焦点而又不会引发错误？

Answer 1

尝试：

<p-orderList>