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

　　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

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