Private Sub Form_Open(Cancel As Integer)
　　　
　　　
　　'/ データベース ウィンドウを最小化してフォームを初期化する
　　　
　　On Error GoTo Form_Open_Err
　　　
　　    '// データベース ウィンドウを最小化する
　　    DoCmd.SelectObject acForm, "メイン メニュー", True
　　    DoCmd.Minimize
　　　
　　    ' //既定として指定されたメニュー項目に移動する。
　　    Me.Filter = "[ItemNumber] = 0 AND [Argument] = '既定' "
　　    Me.FilterOn = True
　　    
　　Form_Open_Exit:
　　    Exit Sub
　　　
　　Form_Open_Err:
　　    MsgBox Err.Description
　　    Resume Form_Open_Exit
　　    
　　End Sub