'新建一个模块,将以下代码复制进去
'代码来源ACCESSOFT网络
Option Compare Database
'隐藏与显示ACCESS主窗口
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'隐藏与显示ACCESS主窗口
'调用方法
'HideAccessWindow False 显示
'HideAccessWindow True 隐藏
Public Function HideAccessWindow(Hidden As Boolean)
On Error Resume Next
Dim lngResult As Long
If Hidden Then lngResult = GetWindowLong(hWndAccessApp, -20) Or &H80000
SetWindowLong hWndAccessApp, -20, lngResult
SetLayeredWindowAttributes hWndAccessApp, 0, 0, &H2
End Function
'在那个窗体的打开事件中加入
HideAccessWindow True
'就可以了,注意:如果SHIFT失效的话,可能再也无法让她停止了