<Retour Grenier>

Question

Dans un formulaire, j'ai une zone de texte liée à une adresse e-mail (lien hypertexte).
Si je tape une adresse directement, Access la transforme en adresse web, démarrant par http://.
Pour la transformer en adresse e-mail, il faut la débuter par mailto:, comme dans l'exemple suivant :

mailto:jacky.aubry@free.fr

Comment faire en sorte que le mailto: se place automatiquement ?

Pour utiliser ce qui suit, vous avez besoin de savoir taper du code Visual Basic dans un module Access, compiler du code, et exécuter du code.

Réponse

Il n'existe pas de propriété permettant de régler le problème.
Voici une bidouille :o) permettant de régler le problème :

1. Ouvrez votre état en mode Création.
2. Faites apparaître les propriétés de votre champ d'adresse. Nous supposerons que celui-ci s'appelle "Adresse Internet".
3. Tapez le code suivant dans l'événement "Après Màj" du champ :

Private Sub Adresse_Internet_AfterUpdate()
Dim hlk As Hyperlink

Set hlk = Me![Adresse Internet].Hyperlink
If Left(hlk.Address, 7) = "http://" Then
	Me![Adresse Internet] = "#mailto:" & Mid(hlk.Address, 8) & "#"
End If
End Sub