nom dans un champ hypertexte

Bonsoir.

AMHA, en VBA, on ne peut affecter des liens hypertexte que sur des controles
images, boutons de commandes et étiquettes.
pour affecter sur un bouton:
Dim hlk As Hyperlink
Set hlk = Me.Commande0.Hyperlink
hlk.TextToDisplay = Me.Monchamptexte
hlk.Address = Me.MonadresseMail

Dans ce cas l'adresse et le texte sont deux champs texte de table, le lien
étant créé directement sur Form_Current et sur AfterUpdate des contrôles de
formulaires Monchamptexte et MonadresseMail.
exemple:
Private Sub Monchamptexte _AfterUpdate()

Dim hlk As Hyperlink
Set hlk = Me.Commande0.Hyperlink
hlk.TextToDisplay = Me.Monchamptexte
End Sub



--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Pascal Duterme" <pascal.duterme@pi.be> a écrit dans le message de
news:bnlfct$4to$1@reader08.wxs.nl...

J'ai créé un formulaire qui permet d'insérer dans une table "documents",
comprenant un champ lienhypertexte, un lien hypertexte vers un document
quelconque du pc.

Ce document comprend un bouton insérer le lien hypertexte dans le champ
nommé txtAddress.

Je voudrais qu'apparaisse dans ce champ non pas le chemin complet, mais un
nom que je choisis moi même.
J'ai essayé la propriété "texttodisplay", mais access ne semble pas la
reconnaître.

Merci pour votre aide.



Private Sub bteinserer_Click()
Dim nomfichier As String
Dim LeFichier As String
Dim rep As Boolean
nomfichier = Me.txtAddress
LeFichier = OpenFile(LeFichier)

rep = confirme("Etes-vous sûr de vouloir insérer le fichier " & LeFichier
&

"?")
If rep Then
Me.txtAddress = "#" & LeFichier & "#"


Else
Exit Sub
End If

End Sub