鼠标滚轮实现翻页效果

Henry D. Sy

1. Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
   
2.     On Error Resume Next
   
3.     If Count > 0 Then
   
4.         DoCmd.GoToRecord , , acPrevious
   
5.         SendKeys "{PGDN}"
   
6.     Else
   
7.         DoCmd.GoToRecord , , acNext
   
8.         SendKeys "{PGUP}"
   
9.     End If
   
10. End Sub

复制代码

用这个代码，如果当其记录是第一条或者新纪录，则出现错误。
发现，滚动记录比用代码跳转记录发生的时间晚
再者，就算没有错误发生也不理想，查阅记录还好，如果编辑记录的话，你还没有编辑完毕记录已经保存了。

mlwbj

谢谢[:12]