J'ai un problème avec le code suivant : Méthode simple :
Dans votre formulaire vous disposez d'une zone de texte qui contient une adresse émail du style "lagardère@free.fr" et vous souhaiter démarrer OE par un simple clic sur cette zone de texte... Disposez alors n'importe où sur votre formulaire une étiquette indépendante (label) que vous pouvez rendre invisible. Le libellé peut être quelconque et son nom sera "lblAdressMail".
Dans la Sub de l'événement "Sur clic" de votre zone de texte que nous nommerons txtEmail pour l'exemple, vous écrivez :
If InStr(1, txtEmail, "@") > 0 Then lblAdressMail.HyperlinkAddress = "mailto:" & Me.txtEmail lblAdressMail.Hyperlink.Follow End If
Chez moi, ça marche avec une zone texte dans un formulaire tabulaire mais pas sur un formulaire en colonne simple. Normal où j'ai fait une erreur quelque part? Merci
|