点击下载此附件

可以在窗体的"成为当前"事件和"键按下"事件中写入以下代码:

=====================================================

Private Sub Form_Current()

DoCmd.RunCommand acCmdSelectRecord

End Sub

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

If KeyCode = 40 Then

DoCmd.GoToRecord , , acNext

End If

End Sub

=====================================================