ショートカットキーでイベントを発動させたい

質問

アクセスのフォームの上にコマンドボタンが乗っているのですが
CTRL+Bを押したら、そのコマンドボタンのクリック時イベント（Click）を発動させたいのですが
そんな事って可能でしょうか？
ご回答よろしくお願いします！！
（2007）

回答No.1

nicotinism · ベストアンサー

Alt + B でも良かったら超簡単です。
フォームのデザインビューで
ボタン名が コマンド１ としたらボタン名の表題の後に &B を加えるだけです。
コマンド１ → コマンド１ &B
フォームビューに戻ってコマンドボタンを見ると、
コマンド１ B となっていて、Bの下に下線が引かれているはずです。
これで、Alt + B でコマンド1が実行されます。

Ctrl + B は少し面倒で
フォームのデザインビューでプロパティシートのイベントタブの
下の方にある「キーボードイベント取得」を「はい」にします。
次に
フォームのクリック時イベントに

If Shift = acCtrlMask Then
Select Case KeyCode
Case vbKeyB
Call コマンド1_Click

End Select
End If

とします。
コマンドボタンが他にも有れば Case を増やしていってください。
なお、いずれの場合でもAccess本体のショートカットキーの
Ctrl + C や Alt + F などとバッティングするキーアサインでは
フォームの方が優先されますのでダブらないようにしておいた方が吉。
http://www.accessclub.jp/samplefile/samplefile_154.htm

お礼

ａｌｔのほうが簡単ですね！ｃｔｒｌの方法もやってみたのですが難しいのは苦手なのでａｌｔにしようと思います。
ありがとうございました。