changer champs HTTP en champs mailto

Bonsoir.

je te soumets une idée car c'est une solution fréquemment utilisée dans
access qui simplifie la vie. Le champ de l'adresse n'est pas un champ
hypertexte mais un champ texte (Adresse par exemple). on place à côté de ce
champ un bouton de commande (commande0 par exemple) qui sera utilisé pour
exécuter le lien avec l'adresse du champ texte. Dans l'événement click de ce
bouton on teste le contenu du champ Adresse et selon ce contenu on complète
ou non l'adresse.

sur l'événement clic du bouton,
Private Sub Commande0_Click()
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
If InStr(1, Me.Adresse, "@") <> 0 Then
If Left(Me.Adresse, 7) = "mailto:" Then
HLK.Address = Me.Adresse
Else
HLK.Address = "mailto:" & Me.Adresse
End If
ElseIf InStr(1, Me.Adresse, "http://") <> 0 Then
HLK.Address = Me.Adresse
Else
HLK.Address = "http://" & Me.Adresse & "/"
End If
Set HLK = Nothing
End Sub

donc avec ce code, on peut entrer soit une adresse mail soit une adresse
http avec ou sans le mailto:, avec ou sans le http://, et le code du bouton
lancera le bon lien.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"bob-news" <bobvh@skynet.be> a écrit dans le message de
news:4126261d$0$4186$ba620e4c@news.skynet.be...

Bonjour,

Je me suis mal expliqué précédemment. En fait dans une table j'ai créé un
champs "Email" avec comme type de données : Lien hypertexte. J'ai ensuite
encodé les adresses Email de différents personnes. Après avoir enregistré
la

table, lorsque je clique sur l'adresse Email, rien ne se produit et
j'obtiens en fait un lien de type http:// avec ensuite l'adresse mail de
la

personne, ce qui ne sert à rien. Comment au moyen d'un quéry transformer
ces

liens hypertextes en "VRAI" adresses Mail pouvant être utilisée
directement

depuis la table enregistrée dans access 2000

D'avance merci
Bob