DoCmd.Maximize '最大化
Ap_ViewSet 'メニュー項目表示 Set recApMnu = Nothing ' DoCmd.Maximize '最大化 <=追加行 Exit_Form_Load: