'=========================================================================================
'-函数名称: 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