使用箭头键以连续形式在记录中移动

Posted 2021-02-25

KeyPreview property must be set to Yes

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
On Error GoTo ErrHandler
   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
 
Egress:
Exit Sub
 
ErrHandler:
   If Err.Number = 2105 Then
       KeyCode = 0
       DoCmd.Beep
   Else
       MsgBox Err.Description
   End If
   Resume Egress
End Sub