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

Excelのようにカーソルで自由に移動できるフォームを作ります。

●準備●
フォームを表形式で作成します。
[フォーム]から[新規作成(N)]-[フォームウイザード]を選択。
フォームのレイアウトで[表形式]を選択します。
表形式のフォームが完成します。

●サンプル●
フォームが完成したら[デザイン]を実行します。
詳細の領域にある「テキストボックス」の[プロパティ]を表示します。
[イベント]の項目で「キークリック時」のコードビルダを選択します。
テキストボックスの名前が「ID」の場合のコードです。

Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo er
If KeyCode = 40 Then
DoCmd.GoToRecord , , acNext
 Else
 If KeyCode = 38 Then
     DoCmd.GoToRecord , , acPrevious
 End If
 End If
er:
 Exit Sub
End Sub

すべてのテキストボックスに設定を行います。

●動作確認●
すべてのテキストボックスに設定を行った後、デザインビューからフォームビューに切り替え上下左右のカーソールで項目を移動させます。
カーソルの向きどおり自由にデータ間を移動できることを確認いたします。

●詳細 ●
フォームウイザードで作った表形式のフォームは、カーソル通り自由にデータ間を移動することができません。
ある項目のデータだけを次々に入力していく場合、何回もEnterキーもしくはカーソルキーを何回も押さなくてはならず不便です。
これを設定することで、下方向のカーソルキーを押すだけで次のデーターに移動できますので効率がかなりよくなります。