ACCESS - FORMULAIRE. Le texte inséré dans un champ formaté en lien hypertexte, interprète automatiquement comme étant un lien HTTP et non MAILTO, ce qui rend l'adresse e-mail inutilisable lorsqu'on clique dessus...
Source / Exemple :
'code ...................................................................................
am = [Adressedemessagerie]
am = Left(am, InStr(am, "#") - 1)
Adressedemessagerie = am & "#" & "mailto:" & am & "#"
'..........................................................................................
Conclusion :
Je pars du principe que le champ est déjà formaté en lien hypertexte et non pas seulement en texte. Ce petit code est donc à insérer dans la propriété du champ, onglet "évenement" et "sur perte focus" bouton droit, créer "générateur de code". Il est prévu que [Adressedemessagerie] est le nom du champ de votre adresse e-mail bien sûr.
Ah oui, si un champ est déjà rempli et interprêté comme lien http, en allant dessus avec <tab> et en quittant toujours avec <tab>, il le convertira automatiquement en "mailto:"
Commentaires
je fous un label et non une textbox
et je la remplisd e cette façon
'txthide8_lbl est un label
dim h as hyperlink
If rst("contact_mail") <> "" Then
txthide8_lbl.ForeColor = 16711680 'bleu
txthide8_lbl.FontUnderline = True
Set H = txthide8_lbl.Hyperlink
With H
.Address = "mailto:" & rst("contact_mail")
.ScreenTip = rst("contact_mail")
.TextToDisplay = rst("contact_mail")
End With
Else
txthide8_lbl.ForeColor = 0
txthide8_lbl.FontUnderline = False
Set H = txthide8_lbl.Hyperlink
With H
.Address = Null
.ScreenTip = rst("contact_mail")
.TextToDisplay = "No mail"
End With
End If
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.