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

質問

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

回答No.1

nicotinism · ベストアンサー

フォームのプロパティのイベントタブの
「キーボードイベントの取得」を はい にします。
さらに
フォームのキークリック時イベントに
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 イベント」を
調べてみてください。

お礼

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

回答No.2

DexMachina

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

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

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

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

お礼

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