Access连续窗体的滚动问题

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

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

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

发布人:未知-Access中国

分享到：

点击次数：更新时间：2008-06-27 18:43:54 【打印此页】【关闭】