Accessでのキーイベントの処理について

質問

Access2007のフォームのテキストボックスに指定のキーが押されると
「指定キーの処理」→「テキストボックスは指定キーが押される前の状態にする」
上記の動作をさせようとしているのですが、「指定キーの処理」は「キーイベントの処理」でうまく行ってるのですが、どうしてもテキストボックスに「今押したキー」が入力されてしまいます。
動作は
１：キー'A'が押される
２：キーイベントの処理を実施→Private Subを実行

　Private Sub TB1_KeyDown(KeyCode As Integer, Shift As Integer)
　　　TB1_Copy = Me![TB1]
　　　～～～～～～～～～～～キーイベントに関する処理　’省略
　　　Me![TB1] = TB1_Copy
　End Sub

以上の様にしているのですが、テキストボックスに「今押したキー」が入力されてしまいます。

宜しくご指導下さい。

回答No.1

nicotinism · ベストアンサー

こんな感じで如何でしょ？
Shift + A キーの場合で想定しています

Private Sub タイトル_KeyDown(KeyCode As Integer, Shift As Integer)
　　If KeyCode = vbKeyA And Shift = acShiftMask Then
　　　　MsgBox "a" '処理のつもり
　　　　SendKeys "{ESC}"
　　End If
End Sub

A キーのみなら
　　If KeyCode = vbKeyA And Shift = acShiftMask Then
を
　　If KeyCode = vbKeyA
で。

ただ、SendKeys は非同期に動く場合がありますので、処理によっては
期待した結果が得られない場合もあると思います。
キーが１種類ならラベルのイベントで行っても良さそうです。
この場合のラベルはテキストボックスと一緒に付いてくる方ではなく
単独のラベルです。
ラベルの標題を、ほにゃらら&A としておけば
Alt + A で
Private Sub ラベルほにゃらら_Click()
　　MsgBox "a" '処理のつもり
End Sub
が起動します。
当方2002ですが多分大丈夫・・・かな？

お礼

早速のご指導、有り難うございます。

「SendKeys "{ESC}"」、これでうまく動きました。
「非同期」と言うのが気になりますが、必ず指定の「テキストボックス」に送る様には出来ないのでしょうか？

今のところ順調に動いていますのでこのまま行こうと思います。

有り難うございました。