API获得Access句柄并获得焦点
建立模块
代码:
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就解决了.
如果大家还遇到同类问题请在后跟帖谢谢