在滾輪滾動(dòng)事件中,添加如下代碼,如果不是添加記錄模式,測判斷是向前滾(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