AccessVBA 標準モジュール⑦画面設定

Option Compare Database
Sub リボン非表示()
‘リボン非表示
DoCmd.ShowToolbar “Ribbon”, acToolbarNo

‘ナビゲーションウィンドウを非表示にする
DoCmd.SelectObject acForm, “”, True
DoCmd.RunCommand acCmdWindowHide

End Sub

Sub リボン表示()
‘リボン表示
DoCmd.ShowToolbar “Ribbon”, acToolbarYes

‘ナビゲーションウィンドウを表示する
DoCmd.SelectObject acForm, “”, True
End Sub