AccessのUXを極める：KeyPreviewとKeyDownによる「プロ級」ショートカット実装術
Accessで開発していると、マウス操作だけで完結するUIがいかに非効率かという壁にぶつかるはずだ。業務アプリケーションにおいて、熟練ユーザーはマウスに触れることすら嫌う。彼らが求めるのは、キーボードから手を離さずに完結する流れるような操作性だ。
今回は、Accessのフォームにおいて「KeyPreview」と「KeyDown」を使いこなし、堅牢かつ保守性の高いショートカットキーを実装する技術を伝授する。
なぜ「各コントロール」にイベントを書くのは悪手なのか
初心者がやりがちな失敗は、個々のテキストボックスやボタンに`KeyDown`イベントを実装することだ。これは保守性の観点から見れば「地雷」である。
- メンテナンス性の欠如: コントロールを増やすたびにコードをコピペする必要がある。
- イベントの競合: フォーカスがあるコントロールによって動作が変わるという不安定な挙動を生む。
我々が目指すべきは、フォームがすべてのキーイベントを「先取り」し、一元管理するアーキテクチャである。
核心となる「KeyPreview」プロパティ
Accessフォームには`KeyPreview`という魔法のようなプロパティがある。これを`True`に設定すると、フォーム上のどのコントロールにフォーカスがあろうとも、「コントロールよりも先に」フォームのKeyDownイベントがキー入力をキャッチする。
この特性を使えば、アプリケーション全体で統一されたショートカットキーを、たった一箇所のコードで制御できる。
実装：プロダクションレベルのコードテンプレート
以下は、私が大規模な業務システムで標準的に採用している実装パターンだ。`Select Case`文でキーを捌く構造は、拡張性と可読性が極めて高い。
Option Compare Database
Option Explicit
‘ フォームのKeyDownイベント
‘ 設定: フォームの「キーボードイベント取得 (KeyPreview)」を「はい」にすること
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
‘ Shiftパラメータを使用して、CtrlやAltとの組み合わせを判定する
‘ acCtrlMask = 2, acShiftMask = 1, acAltMask = 4
Select Case KeyCode
Case vbKeyF1 ‘ F1キー：ヘルプを表示
Call ShowCustomHelp
Case vbKeyS
If (Shift And acCtrlMask) > 0 Then ‘ Ctrl + S
‘ 現在のレコードを保存
If Me.Dirty Then Me.Dirty = False
Debug.Print “データ保存完了”
KeyCode = 0 ‘ キー入力を消費してイベントを無効化
End If
Case vbKeyEscape ‘ Escキー：フォームを閉じる
DoCmd.Close acForm, Me.Name
KeyCode = 0
End Select
End Sub
‘ 共通ヘルプ表示用（保守性を高めるために独立させる）
Private Sub ShowCustomHelp()
MsgBox “現在、システム操作マニュアルを準備中です。”, vbInformation, “ヘルプ”
End Sub
堅牢な設計のための3つの鉄則
1. KeyCode = 0 の重要性
`KeyCode = 0` を忘れてはならない。これは「このキー入力を私が処理したので、後続のコントロールには送らないでくれ」という合図だ。これを記述しないと、例えば「Ctrl+S」を押した際に、意図せぬ標準の保存ダイアログが競合して動くなどのバグを招く。
2. 定数（KeyCode）の活用
`vbKeyF1` や `vbKeyS` といったVBA組み込み定数を使うこと。`112`や`83`のようなマジックナンバーを直打ちするのは、プロのコードではない。可読性と保守性が低下する最大の要因だ。
3. ShiftMaskを用いたビット演算
`Shift And acCtrlMask` という書き方は、ビット演算による制御だ。`If Shift = 2 Then` と書いてはいけない。もし将来的に「Ctrl + Shift + S」のような複雑なショートカットを追加したくなった際、ビット演算であれば論理的に拡張できるが、単純な比較ではコードが崩壊する。
最後に：なぜ「ショートカット」なのか
業務自動化ツールにおいて、UIとは単なる見た目ではない。「ユーザーの思考速度を止めないこと」こそが、真の生産性向上である。
今回紹介した`KeyPreview`を活用した中央集権的な設計は、フォームを閉じる、保存する、検索窓へ飛ぶといった操作をキーボードに集約させ、ユーザーをマウス操作の呪縛から解放する。
このコードをあなたのアプリケーションの「基底」として組み込んでみてほしい。些細な実装の差が、数ヶ月後のメンテナンスコストを劇的に変えることになるはずだ。技術は細部に宿る。妥協なき設計を続けよう。
