IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

[acces 2003] Désactivé molette de la souris


Sujet :

VBA Access

  1. #1
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut [acces 2003] Désactivé molette de la souris
    Bonjour tout le monde,

    voila ja'ai un formulaire qui se refere à une table, le soucis c'est que je ne veux pas de défilement d'enregistrements... Mais cette satanée molette les fait défilé et genere des erreurs dans mes requêtes. Je me suis référée au tuto j'ai correctement suivis les étapes mais le souis c'est que le code qu'ils proposent ne marche pas ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
    = incomptabilité de type.

    Voici le code en entier :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    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
    End Sub
    et le lien pour acceder au tuto



    gracias

  2. #2
    Expert éminent sénior
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Points : 16 044
    Points
    16 044
    Par défaut
    Bonjour,

    Oui, il semble qu'avec Access 2003, certains problèmes apparaissent...

    Regarde ici, le point III-B. Cette solution est plus simple à mettre en place et cela devrait fonctionner.

    De plus, pas besoin de registrer la dll.

    Domi2

  3. #3
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut
    J'essaie d'linstaller le fichier dans outils/référence , il me dit impossible de spécifier ce fichier, j'avais auparavant installer un autre fichier molette souris, j'ai essaie de l'effacer, mais il ne veur pas

  4. #4
    Expert éminent sénior
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Points : 16 044
    Points
    16 044
    Par défaut
    Bonjour,

    Si tu utilises la dll d'Arkham que je t'ai indiquée, tu n'as pas besoin de la référencer dans ton projet.

    Pour l'autre problème, je ne comprend pas bien.

    Si tu vas dans Outils ==> Références, tu ne peux pas décocher l'ancien fichier ?

    Domi2

  5. #5
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut
    j'ai tou effacer tou recommencer, et il me di la même chose, j'ai retelecharger le fichier dll mais il ne veut mm pas me le mettre dans mon répertoire de référence

  6. #6
    Expert éminent sénior
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Points : 16 044
    Points
    16 044
    Par défaut
    Re,

    Tu essaies d'utiliser la MouseWheelDVPNoReg d'Arkham46 ?

    Domi2

  7. #7
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut
    Je suis désolé mais ça ne marche pas !!! c'est complètement fou !!!!


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    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)
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    LoadLibrary CurrentProject.Path & "\MouseWheelDVPNoReg.dll"
    MouseWheelHook Me.Hwnd, False
    voici un début de code et voici l'erreur qu'il génere quand je compile :

    CurrentProject = instruction incorrecte à l'intérieur d'une procédure

  8. #8
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut
    voila ce que je fais exactement pour l'installation du fichier .dll

    j'ai laisser une pièce jointe

  9. #9
    Expert éminent sénior
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Points : 16 044
    Points
    16 044
    Par défaut
    Bonjour,

    Je ne sais pas pourquoi tu tiens absolument à référencer cette dll.

    Le titre du tuto est pourtant éloquent.

    Tu copies simplement la dll dans le même répertoire que ton application, tu ne références rien dans ton projet et tu ne la registres pas.

    Ensuite dans le code du formulaire, dans l'entête, avant les procédures et fonctions, tu mets tes trois premières lignes de codes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    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)
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Enfin, sur l'événement Sur chargement, tu mets les deux lignes suivantes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Form_Load()
    LoadLibrary CurrentProject.Path & "\MouseWheelDVPNoReg.dll"
    MouseWheelHook Me.Hwnd, False
    Redis-nous...

    Domi2

  10. #10
    Membre habitué Avatar de Milyshyn76
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2007
    Messages
    440
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Novembre 2007
    Messages : 440
    Points : 158
    Points
    158
    Par défaut
    Coucou,
    bon étant donné que je voulais finir mon projet, j'ai mis de coté l'histoire de cette molette, aujourd'hui j'ai repris le problème et ça marche impeccable (on dit plutôt, cela fonctionnne )

    Voilà, merci beaucoup de ton aide merci merci merci..
    Si j'ai d'autre problèmes je n'hésiterais pas une seconde à te faire signe.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Désactiver molette souris Access 2003
    Par Thierry'' dans le forum Access
    Réponses: 7
    Dernier message: 21/11/2012, 17h53
  2. Désactiver molette de la souris : besoin d'aide sur le code
    Par fanico11 dans le forum VBA Access
    Réponses: 3
    Dernier message: 13/05/2008, 17h53
  3. Désactivation molette souris
    Par gregrywan dans le forum Access
    Réponses: 5
    Dernier message: 27/01/2006, 12h41
  4. Réponses: 3
    Dernier message: 12/01/2006, 10h51
  5. erreur code pour désactiver molette souris.
    Par rangernoir dans le forum Access
    Réponses: 2
    Dernier message: 27/09/2005, 10h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo