API获得Access句柄并获得焦点

代码:
公共声明函数setactivewindowalib "user32 "别名" setactivewindow "(byval hwnd aslong)as long
事件。

代码:
setactivewindowaapplication . hwndaccessapp
在我的实践中，Access调用置顶模块时，会导致Access能够获得焦点的控件失去焦点
经过大量实践发现，无论是Access自带的SetFocus还是API的SetFocus都无法使Access重新获得焦点
这个小bug在使用API函数SetActiveWindowa函数后得到了解决。