画面制御等で使用する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 |
意味の分からないエラーメッセージ_MS-ACCESS2003［ストレス解消ブログ-王道のベスト10-］
「データプロバイダまたは他のサービスがE_FAIL状態を返しました。」というエラーメッセージは、各入力欄に設定された値を超えた文字数の入力が原因で「文字数オーバー」です。
システム起動時に表示するフォームに設定します。
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 |