システム起動時に表示するフォームに設定します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Private Sub Form_Load() With DoCmd 'リボン非表示 If Application.CommandBars("Ribbon").Visible Then .ShowToolbar "Ribbon", acToolbarNo End If 'ナビゲーションウィンドウ非表示 .SelectObject acForm, "", True .NavigateTo "acNavigationCategoryObjectType", "" .RunCommand acCmdWindowHide End With End Sub |