Réponse n° 1 -------- le 23/07/2014 : 20:19 par 3Stone
Administrateur
|
Bonjour,
En général, le défilement des enregistrements par la roulette n'est pas souhaité lorsque un enregistrement est en édition ou création...
Si c'est le cas, la solution est simple : il suffit d'empêcher la mise à jour... ce qui annule du même coup le défilement. Si l'utilisateur "regarde" les enregistrements, le défilement est même pratique.
Voilà le code :
- au dessus de la première Sub, tu déclare une variable publique
Code :Option Compare Database Option Explicit '/ controle pour défilement Public MouseWheelCancel As Boolean
- dans l'événement "Sur roulement de la souris" tu mets cette variable à Vrai Code :Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) MouseWheelCancel = True End Sub
- dans l'événement "Avant MAJ", tu annule et remet la variable à Faux Code :Private Sub Form_BeforeUpdate(Cancel As Integer) Cancel = MouseWheelCancel MouseWheelCancel = False End Sub
Cordialement, Pierre (3Stone) |