入力後にアラートを発生させて再入力するため、フォーカスを動かさない方法（Setfocusが機能しないときの対処法）

Access探検隊　入力後にフォーカスを動かさない方法 - 風のフリーランスプログラマ

Accessの入力画面で、あるテキストボックスの入力後にフォーカスを動かしたくない場合がある。今回は簡易見積り画面でそういうケースがあった。見積りの内訳をいくつか入力して単価が計算される。最後に個数を入力して金額が出る。ここで、個数を次々と...

blog.goo.ne.jp

Accessのオプションに「Enterキー入力後の動作」というのがある。
これを個数のテキストボックスにだけ適用させる。

－－－－－－－－
Private Sub TextBox1_Enter()
Application.SetOption “Move After Enter”, 0
End Sub

Private Sub TextBox1_Exit(Cancel As Integer)
Application.SetOption “Move After Enter”, 1
End Sub
－－－－－－－－

テキストボックスのフォーカス取得時イベントでEnterキーで移動しないように設定し、フォーカス喪失時イベントで元に戻すようにしたのが上のコードである。