连续窗体的滚动问题
如果有一个连续表格的空白色部分(分割线以下的部分),就会出现向下滚动记录后鼠标无法滚动回第一条记录的情况。你可以用以下方法解决它:
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
顺便也解决了数据表表单无法滚动记录的问题
0条评论