连续窗体的滚动问题

如果有一个连续表格的空白色部分(分割线以下的部分)，就会出现向下滚动记录后鼠标无法滚动回第一条记录的情况。你可以用以下方法解决它:

private Sub Form _ mouse wheel(ByVal Page为Boolean，ByVal Count为Long)
On Error Resume Next
If Count < 0 Then DoCmd。GoToRecord，，acPrevious Else DoCmd。GoToRecord，，acNext
End Sub

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