Les Allergies
Alimentaires
Posez votre question Signaler

Access : Lien hypertexte

Pluton - Dernière réponse le 26 nov. 2003 à 12:40
Bonjour,

J'ai une question sur le type de champ lien :

J'ai mis une textbox d'un champ qui est de type hypertexte, le seul probleme c'est qu'apres la saisie et etre sorti du focus de cette zone de texte, quand on veux y retourner, pour modifier sa valeur par exemple, et bien ce n'est pas du tout intuitif puisque access l'a déja transformé en lien et alors qu'on voulait simplement modifier on se retrouve avec l'ouverture de ce lien.
Y'aurait-il une solution qui permettrait de palier à ce problème ?

Merci par avance, bonne journée à tous.
Lire la suite 

Access : Lien hypertexte »

10 réponses
Réponse
+0
moins plus
Salut !
effectivement, on ne peut pas, je viens d'essayer.
Le truc 'radical' : tu supprime ce lien et tu le recrées...
Ajouter un commentaire
Réponse
+0
moins plus
bonjour pluton

j'ai eu le meme souci ( he oui pas facile .... )
pour y remedir j'ai utilisé une input box dans l'evenement click de l'etiquette du textbox dans le form
sub label_1_click
dim Old_URL as string, New_Url as string, reponse as variant
Old_URL=Me.textbox.value
reponse =inputbox("modifier l'url","URL",Old_URL)
if reponse=vbYes then
  Me.Textbox.value=reponse
end if



Si ça peut t'aider...........
A+
Essayer.........des fois ça marche............
Ajouter un commentaire
Réponse
+0
moins plus
Salut

Je suis passé par une solution tordue mais ca marche :)
Dans mon formulaire de saisie j'ai fait une textbox sans aucune source et j'ai caché le textbox de mon lien. Pi dans le code je fais la liaison entre les deux zones de textes à la sortie.
Ajouter un commentaire
Réponse
+0
moins plus
Salut,

Hop je refais monter le message parceque je me suis rendu compte qu'en fait ca ne marchait pas mon truc :p
Cad qu'en fait apres avoir fé le transfert entre la textbox et mon champ, j'ai l'impression que la propriété hypertext est perdue.. j'ai bien la couleur et le lien souligné mais ce n'est plus attaché à lors du clic rien ne se passe.
J'ai donc essayé ton code Mobile75 que j'ai mis comme ceci :


Private Sub ct_ad_info_Click()
Dim URL As Variant
Dim old_URL As String
old_URL = ct_ad_info
URL = InputBox("Modifier l'url : ", "URL", old_URL)
If URL = "" Then
ct_ad_info = old_URL
Else
ct_ad_info = URL
End If
End Sub

Mais là aussi je me trouve toujours avec le même soucis.
Donc si quelqu'un a la solution ca m'aiderait beaucoup !!

Merci à tous
Ajouter un commentaire
Réponse
+0
moins plus
lol je viens de relire, ok jai fait mon test sur le champ lui meme et pas sur l'etiquette donc disont que c'est normal que ca ne marche pas. Cependant sous access 97 je ne peux attribuer un evenement clic sur l'etiquette du textbox donc ca va pas marcher :)
mobile75- 26 nov. 2003 à 12:40
resalut
pardon tu as bien raison
c'est pourquoi dans le meme cas que toi j'ai remplacé l'etiquette du champ par une etiquette normale


A+
Essayer.........des fois ça marche............
Pluton - 26 nov. 2003 à 10:39
J'ai finalement trouvé une solution qui marche. Je la laisse pour ceux qui peuvent rencontrer le meme problème.

1) Faire une zone de texte
2) Associer le code suivant à l'evenement 'sur perte focus'

Private Sub ZoneDeTexte_LostFocus()
Dim URL As String
Dim CHAMP As String
CHAMP = ZoneDeTexte
URL = Mid(CHAMP, 1, 7)
If URL = "http://" Then
ChampDeLaTable = ZoneDeTexte & "#" & ZoneDeTexte & "#"
Else
ChampDeLaTable = ZoneDeTexte & "#http://" & ZoneDeTexte & "#"
End If
End Sub

Voilà, cela permet de rentrer en plus des url de type http:// ou directement sans le http://, de plus il n'y a plus le problème du formatage automatique de la zone de texte.
Pluton - 26 nov. 2003 à 11:47
Question qui reste ouverte :

Comment faire pour prendre en compte les adresses comportant le symbole # du coup ??
Ajouter un commentaire
Ce document intitulé « Access : Lien hypertexte » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?