Accessの迷宮を突破せよ：DoCmd.RunCommandによる「強制保存」の真実と最適解
Access開発の現場において、最も初歩的でありながら、最も多くのシステムを崩壊させるトリガー。それが「データの不完全なコミット」です。
「バリデーションを書いたのに、なぜかデータが保存されてしまう」「更新前処理が走る前にカーソルが移動してしまう」。こうした悩みを抱えているなら、あなたはAccessのオブジェクトモデルの深淵にまだ足を踏み入れていません。
今日は、Accessのレコードライフサイクルを掌握し、入力漏れを完全に封殺する「強制保存」の極意を伝授します。
—
1. なぜ「DoCmd.RunCommand」なのか
多くの初学者は `Me.Dirty = False` を使って保存を試みます。確かに機能します。しかし、大規模なシステムや複雑なサブフォーム構成においては、これだけでは不十分なケースがあることを知っておくべきです。
`DoCmd.RunCommand acCmdSaveRecord` は、AccessのUI層に対して直接「保存せよ」という命令を投げ込むものです。これにより、フォームに設定されたすべてのバリデーションルール（テーブルレベルの制約を含む）を強制的にトリガーさせることができます。
「保存してから処理を継続する」という確固たるフローを作るには、このコマンドが最も信頼に足る武器となります。
—
2. 堅牢な実装：更新前処理での「鉄壁のバリデーション」
業務ツールにおいて、最も避けるべきは「入力チェックを通過したつもりで、実はバリデーションエラーが宙に浮いている状態」です。以下の実装は、ボタン押下時やフォーム終了時に必ず組み込むべき「定石」です。
実装コード例：`Form_BeforeUpdate` または `cmdSave_Click`
Public Sub SaveRecordSafely()
On Error GoTo ErrorHandler
‘ 1. 現在のレコードに変更があるか確認
If Me.Dirty Then
‘ 2. 強制保存コマンドを実行
‘ これにより、テーブルレベルのバリデーションが強制的に走る
DoCmd.RunCommand acCmdSaveRecord
MsgBox “保存が完了しました。”, vbInformation, “システム通知”
Else
MsgBox “変更箇所はありません。”, vbExclamation, “通知”
End If
Exit Sub
ErrorHandler:
‘ 3. エラーハンドリング：保存失敗（バリデーションエラー等）を捕捉
‘ 2501はRunCommandがキャンセルされた場合のエラー番号
If Err.Number <> 2501 Then
MsgBox “保存中にエラーが発生しました：” & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “エラー”
End If
‘ 必要に応じて入力をロールバックする処理を追加
End Sub
—
3. なぜ「保守性」が高いのか：アーキテクトの視点
この実装が優れている理由は3点あります。
1. 暗黙的なバリデーションの活用: `acCmdSaveRecord` を呼ぶことで、Access標準のプロパティ（入力必須、値の要求など）とVBAのチェックが完全に同期されます。二重管理によるバグを排除できます。
2. エラーの明示的なトラップ: `2501` エラーを無視しつつ、未知のDBエラーを確実に捕捉する設計にすることで、システムが予期せぬ挙動で停止するのを防ぎます。
3. UIとロジックの分離: このメソッドを `Public` で定義しておけば、保存ボタン、メニューバー、あるいはタイマー処理からも同じロジックを呼び出せます。コードの重複を許さない、これが保守の第一歩です。
—
4. プロフェッショナルの注意点
実務でこの手法を用いる際、一点だけ心に留めておいてください。
「`Me.Dirty` を制御せよ」
サブフォームが含まれる複雑なフォームでは、メインフォームを保存しようとするとサブフォームの更新前処理が先に走ります。このとき、サブフォーム側で `Cancel = True` を返すと、`acCmdSaveRecord` は失敗しエラーを投げます。
設計の極意：
- バリデーションは「静的」に行う: 複雑な計算を伴うチェックは、保存の直前ではなく、各コントロールの `AfterUpdate` で行うべきです。
- 例外処理を疎かにしない: 「保存ボタンを押せば必ず保存される」と盲信せず、常に「保存に失敗する可能性」を前提とした例外ルートを設計してください。
—
最後に：ツールは「道具」ではなく「規律」である
コードは書くだけなら誰でもできます。しかし、「バグが発生する隙間を構造的に埋める」のが、真のエンジニアの仕事です。
今回紹介した強制保存のアプローチは、Accessというプラットフォームが持つ強力な機能を、あなたの意図通りに制御するための「規律」です。明日からの開発で、ぜひこのコードをあなたのツールキットの核として組み込んでください。
あなたの開発するツールが、現場を救う堅牢なシステムになることを期待しています。
