bloquer roulette souris sur formuliare Fermé

Question

Bonjour,sur ACCESS 2003, comment fait-on pour que la roulette soit inopérante sur formulaire et ne fasse pas défiler l'enregistrement en cours de saisie sur formulaire ? Merci;

qmike · Answer

bonjour
inspires toi de ca

https://support.microsoft.com/en-us
bonne journée

hich24 · Answer

déactive a partire du paneau de configuration

michel_m · Answer

Bonjour,

A consulter:
https://access.developpez.com/faq/?page=Forms#molettesouris

qmike · Answer

oui 
  ' Déclaration dans chaque formulaire après Option Explicit et Option Compare Database
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

 'Procédure à rajouter dans chaque formulaire
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub

Private Sub Form_Load()
        'Code à rajouter dans l'événement chargement de chaque formulaire   
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub

Private Sub Form_Close()
    'Code à rajouter dans l'événement fermeture de chaque formulaire
    If Not (clsMouseWheel Is Nothing) Then
        clsMouseWheel.SubClassUnHookForm
        Set clsMouseWheel.Form = Nothing
        Set clsMouseWheel = Nothing
    End If

source : ww.developez.com

FVR812 · Answer

Merci de te donner la peine d'écrire tout ça, j'ai recopié ces codes comme tu as dit ... ça coince encore un peu :j'obtiens une fenêtre "l'expression sur chargement entrée comme paramètre de la propriété événement est à l'origine d'une erreur. Type défini par l'utilisateur non défini" ... je bloque là, tu peux m'aider ? merci

michel_m · Answer

Bonjour,
Qmike s'est borné qu'à copier-coller qu'une partie du lien que je t'avais indiqué...
Tu as à activer la dll Mousewheel et peut-être la télécharger chez microsoft
c'est décrit dans la 1° étape de ce lien...

mais c'est peut-être trop de te demander d'aller sur ce lien;: j'ai encore bossé pour rien et c'est lassant

michel_m · Answer

Bonjour,

OK, mais si tu débutes en VBA, tu ne commences pas par le + facile

Comme cela t'a été suggéré sur self-access.com, tu as 2 méthodes expliquées sur le site de mon voisin Ardèchois  Raymond Sénèque: 
http://officesystemaccess.seneque.net/souris.htm
la 2° est casse-#@\¤ surtout si tu ne connais pas les modules de classe mais la première est faisable, peut-être pas du 1° coup, aussi fais une copie de ta base avant de te lancer et imprime la procédure proposée...
l'activation REGSVR32.EXE C:\Windows\System32\MouseWheel.dll se fait à partir de Windows par démarrer -exécuter

Pour ma part, j'ai laissé tomber ce blocage de roulette, car si tu le fais sur 1 formulaire, il faudra que tu le fasses sur tous les formulaires de toutes tes bases. Je n'ai jamais eu de problèmes avec des utilisateurs une fois informés lors de la livraison : "on pourrait mais c'est tout un B... à installer et ca peut bloquer Access"

Mais c'est en essayant de nouveaux trucs que tu progresseras

Florent · Answer

J'ai mis du temps à trouver la solution !! Mais enfin une solution simple ...

Il suffit d'ajouter en evenement sur l'ouverture du formulaire la ligne suivante (VBA):

Allowadditions = False

Cela interdit tout simplement à access la possibilité d'ajouter un enregistrement supplementaire par simple action de la molette.

Bloquer roulette souris sur formuliare

8 réponses

Discussions similaires