This added error handler will ignore the error:
Code:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo Error_Handler
If (Count < 0) And (Me.CurrentRecord > 1) Then
DoCmd.GoToRecord , , acPrevious
ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then
DoCmd.GoToRecord , , acNext
End If
Error_Handler_Exit:
On Error Resume Next
Exit Sub
Error_Handler:
Select Case Err
Case 2105 'ignore
Case Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_MouseWheel" & "."
End Select
Resume Error_Handler_Exit
End Sub