[AC-2010] Faire défiler les enregitrements avec la molette de la souris avec Access 2010 [Résolu]

[Sefrou]

Bonjour,

Je passe d'un coup de Access 2000 à Access 2010 et je m'aperçois que je ne peux plus passer d'un enregistrement à l'autre avec la molette de la souris(en plaçant le curseur dans un champs quelconque.

Quelqu'un aurait-il la solution ?

Merci.

Max

[LedZeppII]

Bonsoir,

Mets ce code dans l'événement "Sur roulement de la souris" du formulaire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo ErrH:
 
If Count > 0 Then
   DoCmd.RunCommand acCmdRecordsGoToNext
ElseIf Count < 0 Then
   DoCmd.RunCommand acCmdRecordsGoToPrevious
End If
 
ExitSub:
Exit Sub
 
ErrH:
Select Case Err.Number
    Case 2046 ' La commande ou l'action « xxxx » n'est pas disponible pour l'instant
         Resume Next
 
    Case Else
         MsgBox "Erreur No. " & Err.Number & " : " & Err.Description
End Select
Resume ExitSub
End Sub

A+

[Sefrou]

Many thanks.