Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" <jv@jv.com> a écrit dans le message de news:
4ac721c6$0$972$ba4acef3@news.orange.fr...
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" a écrit dans le message de news:
#Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
#a3tzzCRKHA.1372@TK2MSFTNGP02.phx.gbl...
Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" <jv@jv.com> a écrit dans le message de news:
4ac721c6$0$972$ba4acef3@news.orange.fr...
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" a écrit dans le message de news:
#Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Salut,
Tu l'as enregistrée la DLL ?
- pour enregistrer : regsvr32.exe C:xxxxMouseWheelDVP.dll
Dans Access (vba) : outils, réferences : cocher le nom (?) peut-être
MouseWheel...
A+
Jero
"JV" a écrit dans le message de news:
4ac76952$0$912$
> Merci.
> Au début de la page indiquée, il y a la phrase :
> Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour
> déploiement plus aisé.
> qui renvoie à la page
> http://arkham46.developpez.com/articles/access/mousewheelnoreg/
> C'est le code de cette page que j'ai utilisé.
>
> Je me demande si ce n'st pas la ligne
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
> qui pose un problème.
>
> Cordialement.
> JV
>
>
> "Blaise Cacramp" a écrit dans le message de news:
> #
>> Selon : Bonjour ou bonsoir
>>
>> ton bonheur ici :
>> http://arkham46.developpez.com/articles/access/mousewheel/
>>
>> Cdt, Blaise
>> ---- ---- ----
>>
>>
>> "JV" a écrit dans le message de news:
>> 4ac721c6$0$972$
>> > Bonjour,
>> >
>> > J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com)
>> > code
>> > ci-dessous pour bloquer la roulette dans un formulaire :
>> >
>> > Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll"
>> > 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
>> > String) As Long
>> >
>> > Private Sub Form_Load()
>> > LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
>> > Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
>> > MouseWheelHook Me.Hwnd, False
>> > End Sub
>> >
>> > J'ai chargé ce code dans la propriété "Sur chargement" de mon
> formulaire.
>> >
>> > Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
>> > répertoire que mon programme access.
>> >
>> > Quand j'ouvre le formulaire, j'ai le message d'erreur :
>> > Erreur d'exécution '53'
>> > Fichier introuvable : MouseWheelDVPNoReg.dll
>> >
>> > Merci de votre aide.
>> > JV
>> >
>> >
>> >
>> >
>> >
>> >
>>
>>
>
>
Salut,
Tu l'as enregistrée la DLL ?
- pour enregistrer : regsvr32.exe C:xxxxMouseWheelDVP.dll
Dans Access (vba) : outils, réferences : cocher le nom (?) peut-être
MouseWheel...
A+
Jero
"JV" <jv@jv.com> a écrit dans le message de news:
4ac76952$0$912$ba4acef3@news.orange.fr...
> Merci.
> Au début de la page indiquée, il y a la phrase :
> Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour
> déploiement plus aisé.
> qui renvoie à la page
> http://arkham46.developpez.com/articles/access/mousewheelnoreg/
> C'est le code de cette page que j'ai utilisé.
>
> Je me demande si ce n'st pas la ligne
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
> qui pose un problème.
>
> Cordialement.
> JV
>
>
> "Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
> #a3tzzCRKHA.1372@TK2MSFTNGP02.phx.gbl...
>> Selon : Bonjour ou bonsoir
>>
>> ton bonheur ici :
>> http://arkham46.developpez.com/articles/access/mousewheel/
>>
>> Cdt, Blaise
>> ---- ---- ----
>>
>>
>> "JV" <jv@jv.com> a écrit dans le message de news:
>> 4ac721c6$0$972$ba4acef3@news.orange.fr...
>> > Bonjour,
>> >
>> > J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com)
>> > code
>> > ci-dessous pour bloquer la roulette dans un formulaire :
>> >
>> > Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll"
>> > 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
>> > String) As Long
>> >
>> > Private Sub Form_Load()
>> > LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
>> > Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
>> > MouseWheelHook Me.Hwnd, False
>> > End Sub
>> >
>> > J'ai chargé ce code dans la propriété "Sur chargement" de mon
> formulaire.
>> >
>> > Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
>> > répertoire que mon programme access.
>> >
>> > Quand j'ouvre le formulaire, j'ai le message d'erreur :
>> > Erreur d'exécution '53'
>> > Fichier introuvable : MouseWheelDVPNoReg.dll
>> >
>> > Merci de votre aide.
>> > JV
>> >
>> >
>> >
>> >
>> >
>> >
>>
>>
>
>
Salut,
Tu l'as enregistrée la DLL ?
- pour enregistrer : regsvr32.exe C:xxxxMouseWheelDVP.dll
Dans Access (vba) : outils, réferences : cocher le nom (?) peut-être
MouseWheel...
A+
Jero
"JV" a écrit dans le message de news:
4ac76952$0$912$
> Merci.
> Au début de la page indiquée, il y a la phrase :
> Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour
> déploiement plus aisé.
> qui renvoie à la page
> http://arkham46.developpez.com/articles/access/mousewheelnoreg/
> C'est le code de cette page que j'ai utilisé.
>
> Je me demande si ce n'st pas la ligne
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
> qui pose un problème.
>
> Cordialement.
> JV
>
>
> "Blaise Cacramp" a écrit dans le message de news:
> #
>> Selon : Bonjour ou bonsoir
>>
>> ton bonheur ici :
>> http://arkham46.developpez.com/articles/access/mousewheel/
>>
>> Cdt, Blaise
>> ---- ---- ----
>>
>>
>> "JV" a écrit dans le message de news:
>> 4ac721c6$0$972$
>> > Bonjour,
>> >
>> > J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com)
>> > code
>> > ci-dessous pour bloquer la roulette dans un formulaire :
>> >
>> > Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll"
>> > 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
>> > String) As Long
>> >
>> > Private Sub Form_Load()
>> > LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
>> > Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
>> > MouseWheelHook Me.Hwnd, False
>> > End Sub
>> >
>> > J'ai chargé ce code dans la propriété "Sur chargement" de mon
> formulaire.
>> >
>> > Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
>> > répertoire que mon programme access.
>> >
>> > Quand j'ouvre le formulaire, j'ai le message d'erreur :
>> > Erreur d'exécution '53'
>> > Fichier introuvable : MouseWheelDVPNoReg.dll
>> >
>> > Merci de votre aide.
>> > JV
>> >
>> >
>> >
>> >
>> >
>> >
>>
>>
>
>
Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Bonjour,
J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
code
ci-dessous pour bloquer la roulette dans un formulaire :
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub
J'ai chargé ce code dans la propriété "Sur chargement" de mon formulaire.
Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
répertoire que mon programme access.
Quand j'ouvre le formulaire, j'ai le message d'erreur :
Erreur d'exécution '53'
Fichier introuvable : MouseWheelDVPNoReg.dll
Merci de votre aide.
JV
Salut,
Je pense avoir trouvé d'où vient l'erreur...
Vérifie que le fichier enregistré porte bien le nom "MouseWheelDVPNoReg",
sinon, renomme-le...
et dans tous les codes suivants, modifie éventuellement la même référence.
Je viens de tester ; j'avais la même erreur et maintenat c'est oK.
A+
Jero
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Salut,
Je pense avoir trouvé d'où vient l'erreur...
Vérifie que le fichier enregistré porte bien le nom "MouseWheelDVPNoReg",
sinon, renomme-le...
et dans tous les codes suivants, modifie éventuellement la même référence.
Je viens de tester ; j'avais la même erreur et maintenat c'est oK.
A+
Jero
"JV" <jv@jv.com> a écrit dans le message de news:
4ac721c6$0$972$ba4acef3@news.orange.fr...
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Salut,
Je pense avoir trouvé d'où vient l'erreur...
Vérifie que le fichier enregistré porte bien le nom "MouseWheelDVPNoReg",
sinon, renomme-le...
et dans tous les codes suivants, modifie éventuellement la même référence.
Je viens de tester ; j'avais la même erreur et maintenat c'est oK.
A+
Jero
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" (ByVal
> pHwnd
> As Long, ByVal pScrollForm As Boolean)Private Declare Sub
> Lib "MouseWheelDVPNoReg.dll" (ByVal pHwnd As Long)Private Declare
> LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As
> String) As Long
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" a écrit dans le message de news:
#Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" <Devinez@gmail.com> a écrit dans le message de news:
#a3tzzCRKHA.1372@TK2MSFTNGP02.phx.gbl...
Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" <jv@jv.com> a écrit dans le message de news:
4ac721c6$0$972$ba4acef3@news.orange.fr...
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.
>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>
Merci.
Au début de la page indiquée, il y a la phrase :
Si possible, envisagez l'utilisation de la dll MouseWheelDVPNoReg pour un
déploiement plus aisé.
qui renvoie à la page
http://arkham46.developpez.com/articles/access/mousewheelnoreg/
C'est le code de cette page que j'ai utilisé.
Je me demande si ce n'st pas la ligne
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "MouseWheelDVPNoReg.dll"
qui pose un problème.
Cordialement.
JV
"Blaise Cacramp" a écrit dans le message de news:
#Selon : Bonjour ou bonsoir
ton bonheur ici :
http://arkham46.developpez.com/articles/access/mousewheel/
Cdt, Blaise
---- ---- ----
"JV" a écrit dans le message de news:
4ac721c6$0$972$
> Bonjour,
>
> J'ai trouvé sur un internet (Thierry Gasperment sur developpez.com) le
> code
> ci-dessous pour bloquer la roulette dans un formulaire :
>
> 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
>
> Private Sub Form_Load()
> LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name))) & MouseWheelDVPNoReg.dll"
> MouseWheelHook Me.Hwnd, False
> End Sub
>
> J'ai chargé ce code dans la propriété "Sur chargement" de mon
formulaire.>
> Comme indiqué, j'ai chargé la dll MouseWheelDVPNoReg.dll dans le même
> répertoire que mon programme access.
>
> Quand j'ouvre le formulaire, j'ai le message d'erreur :
> Erreur d'exécution '53'
> Fichier introuvable : MouseWheelDVPNoReg.dll
>
> Merci de votre aide.
> JV
>
>
>
>
>
>