在滚轮滚动事件中,添加如下代码,如果不是添加记录模式,测判断是向前滚(count<0)还是向后滚(count>0),再让代码把记录返回来 Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) If Me.NewRecord = False Then RunCommand IIf(Count < 0&, acCmdRecordsGoToNext, acCmdRecordsGoToPrevious) End If
End Sub
|