【如何隐藏Access窗口】一键隐藏窗口

Global Const SW_HIDE = 0

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

" 使用举例

" 最大化 Access 窗口

" ?fSetAccessWindow(SW_SHOWMAXIMIZED)

" 最小化 Access 窗口

" ?fSetAccessWindow(SW_SHOWMINIMIZED)

" 隐藏 Access 窗口

" ?fSetAccessWindow(SW_HIDE)

" 正常显示 Access 窗口

" ?fSetAccessWindow(SW_SHOWNORMAL)

"

Dim loX As Long

Dim loForm As Form

On Error Resume Next

loX = ShowWindow(hWndAccessApp, nCmdShow)

Err.Clear

fSetAccessWindow = (loX <> 0)

End Function