アクセスのメイン画面を最小化する

Option Compare Database
Option Explicit

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

Function AccWindow(intSw As Integer) As Long
    Dim lngHwnd As Long
    
    lngHwnd = Application.hWndAccessApp
    If intSw = 0 Then
        AccWindow = ShowWindow(lngHwnd, 2)
    Else
        AccWindow = ShowWindow(lngHwnd, 9)
    End If
End Function