OVH Cloud OVH Cloud

Action Click sur champ Hypertexte

13 réponses
Avatar
Alain TEYSSEDRE
Bonjour

J'ai une zone de liste avec 2 colonnes : Nom et Email
dont je n'affiche que la 1ere colonne.

Dans la colonne Email j'ai le contenu provenant d'un champs de type
hypertexte
avec comme valeur : pierre.barba@genoyer.fr#mailto:pierre.barba@genoyer.fr#

Comment faire pour lancer la commande mailto en cliquant sur le nom affiché
dans ma zone de liste

Merci

Alain

3 réponses

1 2
Avatar
Raymond
il te manque juste le mailto:
HLK.Address = "Mailto:" & Me.lstUser.Column(1)
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le message
de news:%
Bon je récapitule :

J'ai crée mon étiquette : Etiquette64

J'ai mis ton bout de code sous l'evènement Double Click de ma Zone de
liste

Dim HLK As Hyperlink
Set HLK = Me.Étiquette64.Hyperlink
HLK.Address = Me.lstUser.Column(1)
HLK.Follow
Set HLK = Nothing

J'ai l'erreur suivante sur la ligne HLK.Follow
Erreur d'exécution 432 : Nom du fichier ou de la classe introuvable lors
de

l'automation

ps pour info j'ai comme valeur dans Me.lstUser.Column(1) :
"#mailto:#
et j'ai comme valeur dans HLK.Address :

y a quelque chose qui coince !

@+
Alain



"Raymond" a écrit dans le message de
news:%
oui c'est bien ça.
cette fonction doit se lancer dès que tu as modifié la liste par une
sélection.
il ne faut pas deux événements click, le click ou le double-click, mais
pas

les deux.
si tu veux le mettre sur le double-click de la liste, te le mets dans
l'événement sur double clic
vérifie bien que dans les propriétés onglet événement il soit indiqué
procédure événementielle sur la ligne.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le
message


de news:
Ben tu m'as dis :
dans l'afterupdate de la liste tu mets:
Dim HLK As Hyperlink
Set HLK = Me.etiquette1.Hyperlink
HLK.Address = Me.ZonedeListe.Column(1)
HLK.Follow .....

donc je l'ai mis dans l'after update ...

ou faut il mettre la fonction ? (ce que tu appelles la fonction c'est
bien


le bout de code qu'il y a ci-dessus ?)

@+

Alain









Avatar
Alain TEYSSEDRE
SUPER ...ça marche ... Merci Raymond



@+

Alain


"Raymond" a écrit dans le message de
news:
il te manque juste le mailto:
HLK.Address = "Mailto:" & Me.lstUser.Column(1)
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le message
de news:%
Bon je récapitule :

J'ai crée mon étiquette : Etiquette64

J'ai mis ton bout de code sous l'evènement Double Click de ma Zone de
liste

Dim HLK As Hyperlink
Set HLK = Me.Étiquette64.Hyperlink
HLK.Address = Me.lstUser.Column(1)
HLK.Follow
Set HLK = Nothing

J'ai l'erreur suivante sur la ligne HLK.Follow
Erreur d'exécution 432 : Nom du fichier ou de la classe introuvable lors
de

l'automation

ps pour info j'ai comme valeur dans Me.lstUser.Column(1) :
"#mailto:#
et j'ai comme valeur dans HLK.Address :

y a quelque chose qui coince !

@+
Alain



"Raymond" a écrit dans le message de
news:%
oui c'est bien ça.
cette fonction doit se lancer dès que tu as modifié la liste par une
sélection.
il ne faut pas deux événements click, le click ou le double-click,
mais



pas
les deux.
si tu veux le mettre sur le double-click de la liste, te le mets dans
l'événement sur double clic
vérifie bien que dans les propriétés onglet événement il soit indiqué
procédure événementielle sur la ligne.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le
message


de news:
Ben tu m'as dis :
dans l'afterupdate de la liste tu mets:
Dim HLK As Hyperlink
Set HLK = Me.etiquette1.Hyperlink
HLK.Address = Me.ZonedeListe.Column(1)
HLK.Follow .....

donc je l'ai mis dans l'after update ...

ou faut il mettre la fonction ? (ce que tu appelles la fonction
c'est




bien
le bout de code qu'il y a ci-dessus ?)

@+

Alain












Avatar
Raymond
Ouf ! ! ! !
et pas sans mal.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le message
de news:
SUPER ...ça marche ... Merci Raymond



@+

Alain



1 2