连续窗体的滚动问题

如果一个连续窗体的有空白部分（分隔线下面的部分），会出现用鼠标向下滚动记录后，无法用鼠标滚动回第一条记录的情况，可以用下面的办法解决：

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error Resume Next
If Count < 0 Then DoCmd.GoToRecord , , acPrevious Else DoCmd.GoToRecord , , acNext
End Sub

顺便也解决了数据表型窗体无法滚动记录的问题