xp、access2003(SP3)で確認
以下のコードをモジュールとして作成しておく
' オープン時に、Access自身を最小化に設定する為の API 宣言 Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long ' ウィンドウの表示状態を指定する定数の宣言 Public Const SW_SHOWMINIMIZED = 2 ' ウィンドウをアクティブにして最小化
でフォームのOpenイベントで下記のように呼び出す
Private Sub Form_Open(Cancel As Integer) '開発時は非表示にしない If DEBUG_MODE = False Then Dim rc As Long rc = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If End Sub 'メニューを閉じてアプリケーションを終了する Private Sub btnEnd_Click() DoCmd.Close acForm, "frmMenu010_メニュー" '開発時はAccess自体は終了しない If DEBUG_MODE = False Then DoCmd.Quit acExit End If End Sub
DEBUG_MODEは自分で作成したグローバル変数。単なるフラグ