Discussion :

[alain063]

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

[Gabout]

Bonjour,

1. Il te suffit de copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Compare Database
Option Explicit

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MouseWheelUnHook Me.Hwnd

Bon courage,

[alain063]

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.

[Domi2]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

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

Oui.

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.

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

[Gabout]

Bonjour,

Pour compléter le message de Domi2 , 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

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

A+

[alain063]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Domi2]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alain063]

Merci à tous de vos réponses.