如何隱藏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