Bonjour,

J'aimerai désactiver la souris dans un sous formulaire qui est présenté en feuille de données.

J'ai regardé dans plusieurs tutos, mais je préfère passer par un code VBA (plus fiable) que la gestion par une dll (problèmes de droits administrateurs sur le pc).

J'ai récupéré le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Local Error Resume Next
If Count > 0 Then
DoCmd.GoToRecord , , acPrevious
Else
DoCmd.GoToRecord , , acNext
End If
End Sub