Discussion :

[Jah78]

Bonjour,

Bonne année à tous!

J'ai vu dans la FAQ comment on peut bloquer l'utilisation de la molette de la souris dans les formulaires, ceci pour les versions 2000 & +

Je travaille actuellement sur la version 97...

Comment puis je interdire l'utilisation de la molette de la souris dans un formulaire?

Merci

a+

JAH

[Muhad'hib]

Salut,

Tu l'as tester le code avec Access 97 ?

Quel erreur as tu ?

A+

[Jah78]

Non, en fait je dois passer par de DDL que je n'ai pas sous 97...

[Arkham46]

slt,

c'est la même dll j'imagine, elle est développée en VB6 donc pas pour une version particulière d'access.

[Muhad'hib]

Re,

Je pense que dans la FAQ est indiqué version 2000 et + parcequ'elle n'a pas été testé, mais je ne vois pas pourquoi ça ne fonctionnerai pas sous 97.

Il va te falloir essayer (il me semble que la DLL est dispo dans la FAQ) !

A+

[Dolphy35]

Salut,

Tu as raison Muhad'hib le dll est téléchargable dans la Faq

Lien Faq => http://access.developpez.com/faq/?pa...#molettesouris

Lien dll => http://demco.developpez.com/fichiers/dllsouris.zip

Lien Microsoft => http://support.microsoft.com/default...Product=accFra

@+

[Frank]

Ceci dit, le problème est apparu avec Access 2000, je n'en ai jamais eu vent sous Access 97...

[Jah78]

merci de vos réponses


J'ai téléchargé la dll. Faut il la mettre a un endroit particulier ?
Si non, j'ai enregistré la dll dans les Références Access. Mais dans le "available references" de "references", un tick apparait sur la nouvelle reference que je viens d'enregistré et qui s'appelle par défaut: MISSING:MouseWheel. Le mot MISSING me fait deja peur.

Ensuite je copie le code fournie (http://access.developpez.com/faq/?pa...molettesouris) dans mon formulaire et quand j'ouvre mon formulaire, l'erreur suivante apparait:

Run-time error '429':
ActiveX component can't create object

et le mode debug affiche:

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



Quelqu'un peut il me dépanner, svp ?

Merci

JAH

[Arkham46]

Faut il la mettre a un endroit particulier ?

Non mais une fois référencée il ne faut pas la changer de répertoire

dans le "available references" de "references", un tick apparait sur la nouvelle reference que je viens d'enregistré et qui s'appelle par défaut: MISSING:MouseWheel

Ben justement tu ne l'as pas déplacée après l'avoir référencée?

Sinon l'erreur suivante est due au faite que la dll est introuvable.

Et ceci dit Frank a raison, ce code a été créé pour empêcher la roulette de faire défiler les enregistrements sur access 2000 et +, alors que sous 97 la roulette ne fait à priori pas défiler les enregistrements ; alors pourquoi en as-tu besoin sur access 97?

[Frank]

Et ceci dit Frank a raison, ce code a été créé pour empêcher la roulette de faire défiler les enregistrements sur access 2000 et +, alors que sous 97 la roulette ne fait à priori pas défiler les enregistrements ; alors pourquoi en as-tu besoin sur access 97?

[Jah78]

Non, je ne l'est pas déplacée. Pourquoi est elle introuvable alors ?

L'erreur ActiveX component can't create object viendrait donc du fait que la DLL est introuvable ?

A part ca SI, la roulette de la souris passe d'un enregistrement a l'autre ds un formulaire meme avec 97, c'est sur 8) . Et sinon je ne vous embeterais pas avec ca!

Je vais refaire un essai mais toute aide est encore la bienvenue

[Arkham46]

Ben pour 97 c'est bizarre...mais bon si tu le dis.

Sinon essaie de décocher la référence, ferme la fenêtre et recoche là.
Des fois ça suffit...

[Jah78]

En fait, j'ai refait l'essai. Je t'explique comment je fais pour voir si tu vois l'erreur que je fais.

J'ai décoché la reference, j'ai fermé la fenetre. J'ai rouvert les references apres avoir ouvert un nouveau module (sinon je ne peux pas rentrer ds les references), j'ai été recherché la dll. Et j'ai bien vu la coche avec le nom MouseWheel. J'ai refermé le module, J'ai lancé mon formulaire et j'ai de nouveau eu l'erreur ActiveX component can't create object. J'ai donc été dans le vba du formulaire, j'ai regardé a nouveau dans les références et là la coche est suivie du nom MISSING:MouseWheel !!! Alors que je n'est rien fait d'autre que ce que j'ai expliqué, peut etre fallait t il que je fasse justement qqchose d'autre...

Merci de toute aide car je nage

JAH

[Arkham46]

Est-ce que tu vois le chemin de la dll dans la fenêtre des références?
Peut-être le chemin ou le nom de la dll est incorrect?
Ca peut arriver si quelqu'un d'autre avait déjà référencé la dll avant toi.