Hi
I'm trying to make my reports scroll with the mouse wheel when they are sub reports in the navigation form.
If I add the following code to an individual report's VBA then it works on that report...
Code:
Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dim r As Long
If Not Me.Dirty Then
Do While r < Abs(Count)
If (Count < 0) And (Me.CurrentRecord >= 1) Then
DoCmd.GoToRecord , , acPrevious, 1
ElseIf (Count > 0) Then
DoCmd.GoToRecord , , acNext, 1
End If
r = r + 1
Loop
End If
End Sub
What object do I need to add this code to, to make it work with all reports and would I need to add it to a module instead to make it work for all reports?
Thanks