■表示時の初期処理
Private Sub Form_Load() 'ナビゲーションウィンドウを非表示にする DoCmd.SelectObject acForm, "", True DoCmd.RunCommand acCmdWindowHide 'ナビゲーションボタンを非表示にする Me.NavigationButtons = False 'レコードセレクタを非表示にする Me.RecordSelectors = False 'リボンを隠す DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub
■閉じる時の終了処理
Private Sub Form_Close() 'アプリケーションを終了する Application.Quit End Sub