SwitchRecord 在连续窗体视图中使用上下箭头键在记录中上下移动

 '=========================================================================================
'-函数名称：         SwitchRecord
'-功能描述：         在连续窗体视图中使用上下箭头键在记录中上下移动
'-输入参数：         参数1：KeyCode     键值代码
'                    参数2：Shift       Shift键是否被按下
'-返回参数：         无
'-使用示例：         在窗体的KeyDown事件中调用:SwitchRecord KeyCode,Shift
'-相关调用：
'-使用注意：         须将窗体的KeyPreview属性设为是
'-兼 容 性：
'-参考资料：
'-作    者：         红尘如烟
'-创建日期：         2009年4月13日
'========================================================================================
Public Function SwitchRecord(ByRef KeyCode As Integer, ByRef Shift As Integer)
On Error Resume Next
    If Shift = False Then
        Select Case KeyCode
        Case vbKeyUp
            DoCmd.GoToRecord , , acPrevious
            
        Case vbKeyDown
            DoCmd.GoToRecord , , acNext
            
        End Select
    End If
    If Err = 2105 Then KeyCode = 0
End Function