◆概要
通常、Accessで作成したフォームは、Accessのウィンドウ内に表示されます。Accessのウィンドウを最小化したとき、フォームも一緒に最小化してしまいます。この資料では、Windows APIのShowWindowを利用して、Accessのウィンドウを最小化した状態でフォームのみを表示する方法を説明します。

◆Windows APIのShowWindow関数

次のコードを標準モジュールに記述してください。

Option Compare Database
Option Explicit

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

Public 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

Private Sub Form_Load()
    AccWindow (0)
End Sub

AccWindow (1)