Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Curseur "MAIN" active sur champ...

Curseur "MAIN" active sur champ...

13 réponses
Avatar
Luc de Kin
Bonjour,

Petite question d'apparence...

Comment faire pour que le curseur prenne la forme d'une main lorsqu'il
arrive sur un champ a cliquer ?

Merci et bonne journee,

Luc
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Luc de Kin
Merci pour la clarification (modules) MAIS...

ca ne fonctionne toujours pas. Comme je l'ai deja ecrit, cela fonctionne
tres bien dans un formulaire (liste continue) ou je n'ai mis qu'un seul champ
a pointer.

Partant de cela, tes lignes ont bonnes et j'ai mis tout au bon endroit.

MAIS des que je suis avec deux champs et plus... patatra : erreur !

@+ L.


Re,

Un module standard c'est un module par défaut pour Access,
qui est global, si tu regardes les propriétés de ton module
"CurseurMain", il doit y avoir Module

En fait je disais "standard" pour être sûr que tu ne l'avais pas mis
dans le module de classe de ton formulaire...

Bon visiblement tu as tout fait correctement donc ça devrait fonctionner.

Es-tu sûr de ne pas avoir mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

à un autre endroit ???
Fait une recherche de "Function SetCursor" dans tout ton projet
pour vérifier qu'il n'y est qu'une seule fois.

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le message de
news:
On y arrivera :
J'ai peur de poser la question : c'est quoi un module "STANDARD"...

Voici le module qui se nomme "CurseurMain" :

'
--------------------------------------------------------------------------
------

Option Compare Database

Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
'
--------------------------------------------------------------------------
------



Ok donc pour le formulaire c'est bon.

Maintenant, tu as bien mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Dans un module "standard" d'Access ???
que tu as bien sûr suavegardé.

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le
message


news:
Voici l'integralite de ce que j'ai ds le formulaire :

En fait, il s'agit d'une liste avec trois champs (D_Numero, F_Numero
et



NP)
cliquables pour obtenir une fiche et sur lesquels le curseur devrait
changer.

Lorsque j'arrive sur un des champs, l'erreur est :

"Procedure declaration does not match description of event or
procedure



having de same name".

Il faut noter que cela fonctionne dans une liste ou je mets seulement
un



champ cliquable...

Luc

Voici le code :

Private Sub D_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![NumD] = Me.D_Numero
DoCmd.OpenForm "C50_frmFiche"
End Sub

Private Sub D_Numero_MouseMove(Button As Integer, Shift As Integer, X
As



Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub F_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDF] = Me.ID_FACTURE
Forms![000_MAIN_MENU]![NumF] = Me.F_Numero
DoCmd.OpenForm "E50_frmFiche"
End Sub

Private Sub F_Numero_MouseMove(Button As Integer, Shift As Integer, X
As



Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub NP_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
DoCmd.OpenForm "A50_frmFiche"
End Sub

Private Sub NP_MouseMove(Button As Integer, Shift As Integer, X As
Single,



Y
As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub



Re,

Ca je fais deja bien sur... j'suis p'tete pas tres doue mais...
!!!





J'ai
toujours cette meme erreur... Help !


Je n'ai rien dit de tel... ;-)
Mais ça fonctionne sans problème.
Je serais curieux d'avoir tout le code de ton formulaire ???
(tous les évènements et toutes les procédures...)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
@+ j'espere !




Re

En fait, les premières lignes sont à mettre dans un module
standard






de
la
base de donnée, seule les 3 dernières sont à mettre dans
l'évènement...





Il te suffit donc pour chaque contrôle voulu, de mettre sur
l'évènement




"souris déplacée" les 3 lignes (uniquement) de code suivantes :

Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans
le






message
news:
Autre question :

Comment peut-on gerer si su le meme formulaire, on a 2 champs
(ou







plus)
sur
lesquels on voudrait que le curseur change ?

EN utilisant le code ci-dessous, on me retourne un erreur de
declaration



de
procedure ou des procedure ayant le meme nom ???

L.


Sorry mais j'ai pas vu.
Merci...

Luc


Bonjour

La réponse a été donnée il y a quelques jours :

Mettre le code suivant dans un module :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias
"LoadCursorA" _





(ByVal hInstance As Long, ByVal lpCursorName As Long)
As









Long

Ensuite mettre sur l'évènement "souris déplacée" de ton
contrôle,







le code suivant :

Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit
dans









le
message
news:










Bonjour,

Petite question d'apparence...

Comment faire pour que le curseur prenne la forme d'une
main










lorsqu'il
arrive sur un champ a cliquer ?

Merci et bonne journee,

Luc





































Avatar
Luc de Kin
EUREKA !!!

La maladie des "Copy/Paste" a encore frappe...

J'avais simplement fais un copy de :

Private Sub D_Numero_dblClick(Cancel As Integer)
...
end sub

puis j'avais coller la meme chose MAIS en effacant "dbl" :

Private Sub D_Numero_Click(Cancel As Integer)
...
end sub

au lieu de Private Sub D_Numero_Click(), j'avais L'intereiur de la () en
trop !!!!

C'est en faisant un Debug complet que cela a saute au yeux... ss me faire
mal sauf pour toutes ces heures perdues...

Merci encore et @+
Luc



Re,

Un module standard c'est un module par défaut pour Access,
qui est global, si tu regardes les propriétés de ton module
"CurseurMain", il doit y avoir Module

En fait je disais "standard" pour être sûr que tu ne l'avais pas mis
dans le module de classe de ton formulaire...

Bon visiblement tu as tout fait correctement donc ça devrait fonctionner.

Es-tu sûr de ne pas avoir mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

à un autre endroit ???
Fait une recherche de "Function SetCursor" dans tout ton projet
pour vérifier qu'il n'y est qu'une seule fois.

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le message de
news:
On y arrivera :
J'ai peur de poser la question : c'est quoi un module "STANDARD"...

Voici le module qui se nomme "CurseurMain" :

'
--------------------------------------------------------------------------
------

Option Compare Database

Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
'
--------------------------------------------------------------------------
------



Ok donc pour le formulaire c'est bon.

Maintenant, tu as bien mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Dans un module "standard" d'Access ???
que tu as bien sûr suavegardé.

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le
message


news:
Voici l'integralite de ce que j'ai ds le formulaire :

En fait, il s'agit d'une liste avec trois champs (D_Numero, F_Numero
et



NP)
cliquables pour obtenir une fiche et sur lesquels le curseur devrait
changer.

Lorsque j'arrive sur un des champs, l'erreur est :

"Procedure declaration does not match description of event or
procedure



having de same name".

Il faut noter que cela fonctionne dans une liste ou je mets seulement
un



champ cliquable...

Luc

Voici le code :

Private Sub D_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![NumD] = Me.D_Numero
DoCmd.OpenForm "C50_frmFiche"
End Sub

Private Sub D_Numero_MouseMove(Button As Integer, Shift As Integer, X
As



Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub F_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDF] = Me.ID_FACTURE
Forms![000_MAIN_MENU]![NumF] = Me.F_Numero
DoCmd.OpenForm "E50_frmFiche"
End Sub

Private Sub F_Numero_MouseMove(Button As Integer, Shift As Integer, X
As



Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub NP_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
DoCmd.OpenForm "A50_frmFiche"
End Sub

Private Sub NP_MouseMove(Button As Integer, Shift As Integer, X As
Single,



Y
As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub



Re,

Ca je fais deja bien sur... j'suis p'tete pas tres doue mais...
!!!





J'ai
toujours cette meme erreur... Help !


Je n'ai rien dit de tel... ;-)
Mais ça fonctionne sans problème.
Je serais curieux d'avoir tout le code de ton formulaire ???
(tous les évènements et toutes les procédures...)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
@+ j'espere !




Re

En fait, les premières lignes sont à mettre dans un module
standard






de
la
base de donnée, seule les 3 dernières sont à mettre dans
l'évènement...





Il te suffit donc pour chaque contrôle voulu, de mettre sur
l'évènement




"souris déplacée" les 3 lignes (uniquement) de code suivantes :

Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans
le






message
news:
Autre question :

Comment peut-on gerer si su le meme formulaire, on a 2 champs
(ou







plus)
sur
lesquels on voudrait que le curseur change ?

EN utilisant le code ci-dessous, on me retourne un erreur de
declaration



de
procedure ou des procedure ayant le meme nom ???

L.


Sorry mais j'ai pas vu.
Merci...

Luc


Bonjour

La réponse a été donnée il y a quelques jours :

Mettre le code suivant dans un module :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias
"LoadCursorA" _





(ByVal hInstance As Long, ByVal lpCursorName As Long)
As









Long

Ensuite mettre sur l'évènement "souris déplacée" de ton
contrôle,







le code suivant :

Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit
dans









le
message
news:










Bonjour,

Petite question d'apparence...

Comment faire pour que le curseur prenne la forme d'une
main










lorsqu'il
arrive sur un champ a cliquer ?

Merci et bonne journee,

Luc





































Avatar
Jessy Sempere [MVP]
Bonjour

Bon ben c'était bien une ligne en double ou erroné...
C'est vrai qu'on aurait pu déboguer plus tôt, enfin ce fût long
mais bon, le tout c'est d'y arriver. ;-)))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le message de
news:
EUREKA !!!

La maladie des "Copy/Paste" a encore frappe...

J'avais simplement fais un copy de :

Private Sub D_Numero_dblClick(Cancel As Integer)
...
end sub

puis j'avais coller la meme chose MAIS en effacant "dbl" :

Private Sub D_Numero_Click(Cancel As Integer)
...
end sub

au lieu de Private Sub D_Numero_Click(), j'avais L'intereiur de la () en
trop !!!!

C'est en faisant un Debug complet que cela a saute au yeux... ss me faire
mal sauf pour toutes ces heures perdues...

Merci encore et @+
Luc



Re,

Un module standard c'est un module par défaut pour Access,
qui est global, si tu regardes les propriétés de ton module
"CurseurMain", il doit y avoir Module

En fait je disais "standard" pour être sûr que tu ne l'avais pas mis
dans le module de classe de ton formulaire...

Bon visiblement tu as tout fait correctement donc ça devrait
fonctionner.



Es-tu sûr de ne pas avoir mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

à un autre endroit ???
Fait une recherche de "Function SetCursor" dans tout ton projet
pour vérifier qu'il n'y est qu'une seule fois.

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le
message de


news:
On y arrivera :
J'ai peur de poser la question : c'est quoi un module "STANDARD"...

Voici le module qui se nomme "CurseurMain" :

'


--------------------------------------------------------------------------

------
Option Compare Database

Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
'


--------------------------------------------------------------------------

------


Ok donc pour le formulaire c'est bon.

Maintenant, tu as bien mis les lignes :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA"
_




(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Dans un module "standard" d'Access ???
que tu as bien sûr suavegardé.

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit dans le
message


news:
Voici l'integralite de ce que j'ai ds le formulaire :

En fait, il s'agit d'une liste avec trois champs (D_Numero,
F_Numero





et
NP)
cliquables pour obtenir une fiche et sur lesquels le curseur
devrait





changer.
Lorsque j'arrive sur un des champs, l'erreur est :

"Procedure declaration does not match description of event or
procedure



having de same name".

Il faut noter que cela fonctionne dans une liste ou je mets
seulement





un
champ cliquable...

Luc

Voici le code :

Private Sub D_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![NumD] = Me.D_Numero
DoCmd.OpenForm "C50_frmFiche"
End Sub

Private Sub D_Numero_MouseMove(Button As Integer, Shift As
Integer, X





As
Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub F_Numero_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDD] = Me.ID_DOSSIER
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
Forms![000_MAIN_MENU]![IDF] = Me.ID_FACTURE
Forms![000_MAIN_MENU]![NumF] = Me.F_Numero
DoCmd.OpenForm "E50_frmFiche"
End Sub

Private Sub F_Numero_MouseMove(Button As Integer, Shift As
Integer, X





As
Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

Private Sub NP_Click(Cancel As Integer)
Forms![000_MAIN_MENU]![IDR] = Me.ID_REGISTRE
DoCmd.OpenForm "A50_frmFiche"
End Sub

Private Sub NP_MouseMove(Button As Integer, Shift As Integer, X As
Single,



Y
As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub



Re,

Ca je fais deja bien sur... j'suis p'tete pas tres doue
mais...







!!!
J'ai
toujours cette meme erreur... Help !


Je n'ai rien dit de tel... ;-)
Mais ça fonctionne sans problème.
Je serais curieux d'avoir tout le code de ton formulaire ???
(tous les évènements et toutes les procédures...)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
@+ j'espere !




Re

En fait, les premières lignes sont à mettre dans un module
standard






de
la
base de donnée, seule les 3 dernières sont à mettre dans
l'évènement...





Il te suffit donc pour chaque contrôle voulu, de mettre sur
l'évènement




"souris déplacée" les 3 lignes (uniquement) de code
suivantes :









Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a écrit
dans








le
message
news:
Autre question :

Comment peut-on gerer si su le meme formulaire, on a 2
champs









(ou
plus)
sur
lesquels on voudrait que le curseur change ?

EN utilisant le code ci-dessous, on me retourne un erreur
de









declaration
de
procedure ou des procedure ayant le meme nom ???

L.


Sorry mais j'ai pas vu.
Merci...

Luc


Bonjour

La réponse a été donnée il y a quelques jours :

Mettre le code suivant dans un module :
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias
"LoadCursorA" _





(ByVal hInstance As Long, ByVal lpCursorName As
Long)











As
Long

Ensuite mettre sur l'évènement "souris déplacée" de
ton











contrôle,
le code suivant :

Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luc de Kin" a
écrit











dans
le
message
news:










Bonjour,

Petite question d'apparence...

Comment faire pour que le curseur prenne la forme
d'une












main
lorsqu'il
arrive sur un champ a cliquer ?

Merci et bonne journee,

Luc







































1 2