Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Net - Utiliser Hyperlink

Hyperlinks

 

 

Pour envoyer un message électronique :


Méthode complète :

Code destiné à un formulaire (affichage en mode simple), contenant un contrôle Étiquette nommé "lblAddress" lié à un champ texte nommé "txtAddress".

 

Private Sub cmdEnvoyer_Click()

Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
Me!lblAddress.ForeColor = 1279872587
Me!lblAddress.FontUnderline = True

If Not IsNull(Me!txtAddress.Value) Then
Me!lblAddress.HyperlinkAddress = "Mailto:" _
& Me!txtAddress.Value _
& "?CC=" & "" _
& "&Subject=" & "Le sujet du Message" _
& "&Body=" & "Corps du message au kilomètre"
Else
Me!lblAddress.HyperlinkAddress = ""
End If

End Sub

 

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


 


 

Pour ouvrir une page d'un site web :

Private Sub cmdAfficher_Click()

Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
Me!lblAddress.ForeColor = 1279872587
Me!lblAddress.FontUnderline = True

If Not IsNull(Me!txtAddress.Value) Then

Me!lblAddress.HyperlinkAddress = "http://" & Me!txtAddress.Value
Me!lblAddress.HyperlinkAddress = ""

End If

End Sub

 


 

Pour ouvrir un fichier avec son logiciel par défaut :

- La méthode simple

Vous possédez d'un simple champ texte [Chemin] que vous placez sur votre formulaire.
Ajouter n'importe ou une petite étiquette indépendante que vous nommez "txtLabel"
Rendez cette étiquette non visible via ses propriétés.

Sur clic du champ [Chemin] qui contient le chemin du fichier, placez le code suivant:

 

 

Private Sub Chemin_Click()

On Error Resume Next
Dim hplk As Hyperlink

If Dir([Chemin]) <> "" Then

Set hplk = Me.txtLabel.Hyperlink
hplk.Address = [Chemin]
hplk.Follow

End If

End Sub

 

 

- Autre possibilité

 

Private Sub txtNomImage_Click()

'lblNomImage doit être une étiquette indépendante

Me!lblNomImage.Caption = Nz(Me!txtNomImage.Value, "")
Me!lblNomImage.ForeColor = 1279872587
Me!lblNomImage.FontUnderline = True

If Not IsNull(Me!txtNomImage.Value) Then

Me!lblNomImage.HyperlinkAddress = "file:" & Me!txtNomImage.Value
Me!lblNomImage.Hyperlink.Follow
Me!lblAddress.HyperlinkAddress = ""

End If

End Sub



 


Date de création : 01/11/2005 : 20:02
Dernière modification : 08/02/2012 : 13:23
Catégorie : Net
Page lue 7175 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut