一行代码解决窗体记录滚动问题

在滚轮滚动事件中,添加如下代码,如果不是添加记录模式,测判断是向前滚(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