Microsoft Access 掲示板

Microsoft Access 掲示板

リボンを表示せずに開く

2 コメント
views
4 フォロー

現在、リボンを表示せずに開くため、
トップページの読み込み時に下記のコードを入れています。

DoCmd.ShowToolbar "Ribbon", acToolbarNo

この方法をとると、リボンを表示させながら開きたい時
シフトを押しながら画面を表示させるのですが
トップフォームが開かれず閉じられた状態になってしまいます。
そこで、左のメニューからトップページを開くと
VBAが実行され、リボンが消えてしまいます。。

困っております。対処法はありませんでしょうか。

また、最終的にはこのサイトのようにすっきりした見た目にしたいですが、
こうしてしまった際、管理人が修正しようと思ったら
設定をいちいち戻すのが面倒に感じます。
何か良い方法はありませんでしょうか。

風
作成: 2021/05/18 (火) 22:57:44
最終更新: 2021/05/18 (火) 23:02:19
通報 ...
1
ゲッキョク駐車場 2021/05/19 (水) 08:51:56 cb55f@f6500

私はこちらのサイトのmindwoodさんのやりかたを採用しております。
https://qiita.com/mindwood/items/062cde46b848d0c9e96a
「コンテンツの有効化」をクリックしてもらうために　の欄です。
2
hatena 2021/05/19 (水) 11:13:06

起動時実行マクロ(AutoExecマクロ)でリボン非表示のVBAを実行してもいいでしょう。

標準モジュールに下記のプロシージャを作成します。

Public Function HideRibbon()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Function

マクロを新規作成する。
リボンの「すべてのアクションを表示」を選択。
「新しいアクションの追加」で「プロシージャの実行」を選択。
「プロシージャ名」に「HideRibbon()」と設定。
マクロを保存する。名前は「AutoExec」とする。

トップページフォームのDoCmd.ShowToolbar "Ribbon", acToolbarNoは削除しておく。

以上です。