ray88’s diary

お仕事で困ったとき用の自分用の覚書

AccessVBA メニューフォーム表示時の初期処理と閉じる時の終了処理

f:id:ray88:20210122225348p:plain
■表示時の初期処理

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

ray88.hatenablog.com
ray88.hatenablog.com