エスケープキーを押して、フォームを閉じるには？

アクセスのフォームを、エスケープキーを押して、フォームを閉じるにはどうすればいいでしょうか？
DoCmd.Close acForm, フォーム名
で閉じることは分かったのですが、「エスケープキーを押したら」とする方法を教えてください。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/06/02 20:41

フォームのプロパティのイベントタブの

「キーボードイベントの取得」を はい にします。
さらに
フォームのキークリック時イベントに
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("閉じてもいい？", vbYesNo) = vbYes Then
DoCmd.Close acForm, Me.Name
End If
End If
End Sub
としてみると？

VBAの方のヘルプで「キーコードの定数」や「Form.KeyDown イベント」を
調べてみてください。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2013/06/21 23:24

No.2 回答者： DexMachina 回答日時： 2013/06/03 18:09

> 「エスケープキーを押したら」とする方法を教えてください。

もしも、既に『フォーム上に、そのフォームを閉じるためのボタンを
設置済(または新設でも可)』で、けれどキーボードの操作でも
閉じられるようにしたい、という場合であれば

　1)当該フォームをデザインビューで開く
　2)当該ボタンのプロパティシートを開き、『その他』タブにある
　　『キャンセルボタン』プロパティを「はい」に設定
　3)フォームを保存して閉じる

という手順でも実現可能ですので、参考まで。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2013/06/21 23:24