代码: 
Public Declare Function SetActiveWindowa Lib "user32" Alias "SetActiveWindow" (ByVal hwnd As Long) As Long 
事件中写入  

代码: 
SetActiveWindowa Application.hWndAccessApp 
在本人实践过程当中Access在调用了置顶模块的时候会导致Access原本能够获得焦点的控件丢失焦点 
经过大量实践发现无论使用Access自身SetFocus还是API的APISetFocus都没法让Access重新获得焦点 
使用了API函数SetActiveWindowa函数后这个小bug就解决了.