フォームでキーボードの上下キーでレコードを移動します

フォームのプロパティでキーボードイベンの取得を はい にします

キークリック時のイベントプロシージャ―に下記の構文を貼り付けます

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' 先頭、最後尾のレコードでこれを操作すると、エラー番号2105が発生します この､エラーを無視
On Error GoTo Err001

If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious '前レコードへ
If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext '次レコードへ
Exit Sub
Err001:
'エラー番号2105を無視します
If Err.Number = 2105 Then
Resume Next
Else
MsgBox Err.Number & vbNewLine & _
Err.Description & vbNewLine & _
"予期せぬエラーが発生しました"
End
End If

End Sub


目次へ