アクセス小僧：検索テキストボックスでReturnキーが押されたら、検索実行1ボタンにフォーカスする

アクセスのフォームで、検索テキストボックスにテキストを入力し、検索実行ボタンを押されたら、入力されたテキストを含むレコードを検索する機能を以前作成しました。



テキストボックスで検索テキストを入力し、最後にReturnキーを押したら、検索実行ボタンにフォーカスが移動することができれば、

便利かと思い、次のマクロを作成しました。

テキストボックスのKeyDownイベントに次のマクロを設置します。

Private Sub 検索_KeyDown(KeyCode As Integer, Shift As Integer)
  '【機能】検索テキストボックスでReturnキーが押されたら、検索実行1ボタンにフォーカスする
  If KeyCode = vbKeyReturn Then
    KeyCode = 0 ' キー入力をキャンセルする
    [検索実行1].SetFocus
  End If
End Sub

タグ：KeyDown テキストボックス VBA アクセス キー入力

コメント 1

ヤバイぜ！　ありがとうございます(^_0)ノ
by cheese999 (2020-01-10 06:03)