読者です 読者をやめる 読者になる 読者になる

kikukawa's diary

都内で活動するシステムエンジニアが書いてます。 興味を持った技術やハマったポイント、自分用メモをつけてます。 最近はweb中心

Formだけを表示

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は自分で作成したグローバル変数。単なるフラグ

広告を非表示にする