Access の開発をしていて、データベース全体に関する設定を行うところの調整を行っていました。F11 の有効・無効、データベースウィンドウを出す・出さないなどが VBA で設定できます。
この部分は Microsoft のヘルプに記載があるのですが、実際に動かしてみると、サポートしていない項目があります。また、ヘルプに書いていない設定があったりと、要はヘルプが古いのだと思います。
With CurrentDb()
'AppTitle: アプリケーション タイトル
'AppIcon: アプリケーション アイコン
'StartupForm: フォーム/ページの表示
'StartupShowDBWindow: データベース ウィンドウの表示
'StartupShowStatusBar: ステータス バーを表示する
'StartupMenuBar: メニュー バー(動作しない)
'StartupShortcutMenuBar: ショートカット メニュー バー
'AllowFullMenus: すべてのメニューの表示
'AllowShortcutMenus: 既定のショートカット メニュー
'AllowBuiltInToolbars: 組み込みツールバー
'AllowToolbarChanges: ツールバー/メニューの変更
'AllowBreakIntoCode: エラー発生後にコードを表示(動作しない)
'AllowSpecialKeys: ショートカット キーを有効にする
'ショートカットキー無効
.Properties("AllowSpecialKeys").Value = False
'DB ウィンドウ表示
.Properties("StartupShowDBWindow").Value = False
'MDI ウィンドウではなく単一ウィンドウで動かす
.Properties("UseMDIMode").Value = 1
'閉じるときに最適化
.Properties("Auto Compact").Value = True
'右メニュー無効化
.Properties("AllowShortcutMenus").Value = False
End With
サポートされている値を調べるには、データベースの Properies コレクションを見てみるのがよいと思います。ウォッチウィドウからだと操作しづらいので、VBA で組んでしまいましょう。
For Each itm In CurrentDb().Properties
Debug.Print itm.Name & vbTab & itm.Value
Next
※コレクション中にある「DesignMasterID」取得時にエラーになります。If で除外するなどすれば問題無いでしょう。