スキルアップ・問題解決なら、モーグにおまかせ！

帳票フォームがあります。
このフォームを開く時に同時にレコードを1行追加して、そこに値を手入力しフォームを閉じるという業務があります。
閉じる時、closeを割り当てているコマンドボタンをクリックする分には問題ありません。
この閉じるボタンにEscキーを割り当てているんですが、Escキーを押すと閉じる時に
同時にせっかく入力した値が消えてしまいます。
一回別のレコードに移動すれば消えないんですが、1レコードしかない場合もありその場合は移動ができません。
Escへの割り当てを「閉じるボタンにsetfocus」→「閉じるボタンクリック」にしてみましたがダメです。
なにか良い手はありませんでしょうか。
 
よろしくお願い致します。

EscキーにはUndo(入力取消)が割り当てられているのでそうなりますね。
 
このフォームではこの規定の動作を停止させたいて、フォームを閉じる動作にしたいのなら、キークリック時イベントでEscキー入力を補足して動作を変更することになりますね。
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then 'Escキーが押されたら
        KeyCode = 0 'キー入力をキャンセル
        DoCmd.Close 'フォームを閉じる
    End If
End Sub

他のアプリケーションや、PCの操作に慣れた人であれば、入力の取り消し にESC を使う事も多いです。
そんな中で、ESCキーに 閉じるを割り当てる事はお勧めできません。
 
 

引用:
帳票フォームがあります。
このフォームを開く時に同時にレコードを1行追加して、そこに値を手入力しフォームを閉じるという業務があります。

hatena様
コメントありがとうございます。
教えていただいた方法で無事動作しました。
「KeyCode = 0」は、ファンクションキーの割り当て時には入れていましたが意味をわかっていませんでした。
勉強になりました。
ありがとうございます。
 
Suzu様
コメントありがとうございます。
説明が分かりづらかったと思いますが、1レコード追加したら画面を閉じて
また前の画面から値を引っ張ってきて当該フォームにレコードを追加して、
を繰り返して最終的には複数レコードになるフォームです。
なので、1個目の処理の時が1レコードのみになってしまいます。
 
>他のアプリケーションや、PCの操作に慣れた人であれば、入力の取り消し にESC を使う事も多いです。
>そんな中で、ESCキーに 閉じるを割り当てる事はお勧めできません。
確かにそうですね。
以前社内でメインで使用していたシステムが「Esc＝閉じる」だったため
社内的にはそれに慣れてる人が多いため、むしろEsc意外に閉じるを割り当てると不評でして。
本件でも最初は「F1キー」に割り当てたんですが、みんなに嫌がられたので
今回のご質問に至った、という経緯があります。
 
ありがとうございます。