down arrow key moves down, but it moves across to the right on continuse form

[Song Su]

I have a continuse form. When I hit down arrow key, it highlight moves
across to the right instead of same field next record. Is it possible to
move down when pressing down arrow and move up when pressing up arrow?

 

[B. Edwards]

Set the Key Preview property of the form to Yes

In the KeyDown event of the form place the following code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Label
Select Case KeyCode
Case vbKeyDown
DoCmd.GoToRecord Record:=acNext
KeyCode = 0
Case vbKeyUp
DoCmd.GoToRecord Record:=acPrevious
KeyCode = 0
Case Else
' do nothing
End Select

Exit_Label:
Exit Sub
Err_Label:
If Err.Number = 2105 Then
KeyCode = 0
Else
MsgBox Err.Number
End If
Resume Exit_Label
End Sub

 

[Song Su]

Thanks a lot. It works great!

Set the Key Preview property of the form to Yes

In the KeyDown event of the form place the following code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Label
Select Case KeyCode
Case vbKeyDown
DoCmd.GoToRecord Record:=acNext
KeyCode = 0
Case vbKeyUp
DoCmd.GoToRecord Record:=acPrevious
KeyCode = 0
Case Else
' do nothing
End Select

Exit_Label:
Exit Sub
Err_Label:
If Err.Number = 2105 Then
KeyCode = 0
Else
MsgBox Err.Number
End If
Resume Exit_Label
End Sub