画面制御等で使用するDoCmdメソッド
1 2 3 4 5 6 7 8 9 10 11 12 | With DoCmd .Echo False '画面の再描画をオフ .Hourglass True 'マウス ポインターを砂時計の画像に変更 .SetWarnings False 'システムメッセージの表示をオフ End With With DoCmd .Echo False '画面の再描画をオン .Hourglass False 'マウス ポインターを通常の表示に戻す .SetWarnings True 'システムメッセージの表示をオン End With |
システム起動時に表示するフォームに設定します。
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 |