[A-03] Invalider la roulette souris dans les formulaires

Access 2003 et Windows XP Home.
Bonjour à tous,

J'ai bien regardé le sujet déja traité ici :

http://arkham46.developpez.com/artic...eelnoreg/#LV-A

Gestion de la roulette de la souris dans les formulaires (dll sans référencement) Date de publication : 04/10/06 , Date de mise à jour : 04/10/06
Par Thierry GASPERMENT[/B]
Je suis novice en Access, je voudrais suivre la procédure énumérée :

- V Comment utiliser la librairie
- V-A. Avec la librairie dans le répertoire système

Je n'ai pas compris "Ajoutez ensuite dans le module du formulaire les déclarations des procédures de la librairie."

Ensuite "Pour bloquer la roulette, appelez la fonction MouseWheelHook " C'est une fonction que j'appelle à partir d'ou ?

Pareil "Pour débloquer la roulette empêchant le changement d'enregistrement,, appelez la fonction MouseWheelUnHook" ?

Un grand merci pour votre aide

Bonjour,

1. Il te suffit de copier

Code:

---

1 2 3 4

Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long, ByVal pScrollForm As Boolean) Private Declare Sub MouseWheelUnHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long)

---

dans la partie supérieure du code de ton formulaire, juste après

Code:

---

1 2	Option Compare Database Option Explicit

---

2. Je suppose sur l'évènement ouverture du formulaire

Code:

---

1 2 3

Private Sub Form_Open(Cancel As Integer) MouseWheelHook Me.Hwnd, False End Sub

---

3. Là c'est en fonction du besoin

Code:

---

MouseWheelUnHook Me.Hwnd

---

Bon courage, ;)

Merci Gabout,
Je ne comprenais pas la 1ere partie ou la mettre car :
Option Compare Database
Option Explicit, je n'ai pas Option Explicit.
J'ai mis après Option Compare Database.

Ensuite a l'ouverture j'ai mis True à la place de False pour conserver le déplacement vertical.
Et la 3ème partie en sortant du formulaire.
Tout fonctionne mais il faut le répeter sur chaque formulaire.


Quand le lance mon fichier.mdb, j'arrive sur un formulaire d'acceuil et je pense qu'il serait possible d'installer les 2 premières parties dans ce formulaire.
Par contre la sortie peut etre faite n'importe comment, jai bien une sortie propre par une macro "Quitter" avec auparavant un enregistrement mais j'ai toujours la croix rouge Windows qui permet de sortir en sauvage.

Bonjour,

Option Explicit impose la déclaration de toutes les variables du module. L'instruction doit être écrite avant toute procédure.

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Option Explicit   Dim MaVariableUne As string Dim MaVariableDeux As Long Dim MaVariableTrois As Boolean   Sub TaSub()   End Sub

---

Si tu tentes d'utiliser une variable non déclarée, cela provoque une erreur lors de la compilation. C'est donc de première importance pour t'aider à déboguer une application.

On peut "forcer" Access a placer cette instruction automatiquement. Dans l'éditeur VBA, menu Outils ==> Options ==> Onglet "Editeur", cocher "Déclaration des variables obligatoire".

Citation:

---

Tout fonctionne mais il faut le répeter sur chaque formulaire.

---

Oui.

Citation:

---

Quand le lance mon fichier.mdb, j'arrive sur un formulaire d'acceuil et je pense qu'il serait possible d'installer les 2 premières parties dans ce formulaire.

---

Je ne pense pas (mais jamais testé). A essayer, et le retour m'intéresse.

Citation:

---

Par contre la sortie peut etre faite n'importe comment, jai bien une sortie propre par une macro "Quitter" avec auparavant un enregistrement mais j'ai toujours la croix rouge Windows qui permet de sortir en sauvage.

---

On peut l'inhiber, voir ici.

Domi2

Bonjour,

Pour compléter le message de Domi2 :coucou:, je pense que tu seras obligé de répéter cette procédure pour chaque formulaire concerné (il est quelques fois utile de pouvoir disposer de la roulette !).

Enfin, relis le tuto car

Citation:

---

Remarque : Il n'est pas nécessaire de débloquer la roulette à la fermeture du formulaire.

---

A+ ;)

Bonjour et encore merci de vos conseils,
Effectivement j'ai répété la procédure dans les 2 formulaires qui me posaient problème, ça me convient.

Je ne saisi pas bien "Option Explicit impose la déclaration de toutes les variables du module. L'instruction doit être écrite avant toute procédure".
Pour la procédure de la souris, voila ce que j'ai dans la partie supérieure et je ne vois pas apparaitre le terme "Option Explicit" :

Code:

---

1 2 3 4 5

Option Compare Database Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long, ByVal pScrollForm As Boolean) Private Declare Sub MouseWheelUnHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long)

---

Bonjour,

Option Explicit est une ligne de code comme une autre...

Si elle manque, tu l'insères manuellement, dans tous tes modules.

Code:

---

1 2 3 4 5 6 7

Option Compare Database Option Explicit   Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long, ByVal pScrollForm As Boolean) Private Declare Sub MouseWheelUnHook Lib "MouseWheelDVPNoReg.dll" _ (ByVal pHwnd As Long)

---

Si tu coches l'option que je t'ai indiquée, l'instruction s'insérera automatiquement lors de la création de nouveaux modules.

Pour plus d'info, tu sélectionnes Explicit et tu tapes F1.

Si ce n'est encore pas clair, tu reviens... ;)

Domi2

Merci à tous de vos réponses.