Access VBA Créér hyperliens dynamique actif
Résolu
artamys
Messages postés
127
Statut
Membre
-
CaPiT Messages postés 622 Statut Membre -
CaPiT Messages postés 622 Statut Membre -
Bonjour,
je travailles sur une application.
J'ai une table qui a un champ qui est un hyperlien vers le WEB, plus exactement un intranet.
J'ai un formulaire.
En fonction de certains critères j'affiche les caractéristiques de telle ou tellle demande avec un hyperlien renseigné dans un champ.
Mon Problème est que l'hyperlien est dans une zone de texte chargée depuis VBA et que le fait de cliquer dessus n'a aucun effet.Pourtant c'est bien un hyperlien.
ISHyperlink : Oui.
Verouille : Non
Activé Oui .
La je ne comprends pas.
Au pire il faudrait que je remplace cet affichage par une macro qui ouvre une page web et qui colle la ligne hyperlien de la table. Quelqu'un aurait il un programme ou connaitrait il la correspondance VBA de la proprieté adresse lien hypertexte ?
Merci et bonne journée.
je travailles sur une application.
J'ai une table qui a un champ qui est un hyperlien vers le WEB, plus exactement un intranet.
J'ai un formulaire.
En fonction de certains critères j'affiche les caractéristiques de telle ou tellle demande avec un hyperlien renseigné dans un champ.
Mon Problème est que l'hyperlien est dans une zone de texte chargée depuis VBA et que le fait de cliquer dessus n'a aucun effet.Pourtant c'est bien un hyperlien.
ISHyperlink : Oui.
Verouille : Non
Activé Oui .
La je ne comprends pas.
Au pire il faudrait que je remplace cet affichage par une macro qui ouvre une page web et qui colle la ligne hyperlien de la table. Quelqu'un aurait il un programme ou connaitrait il la correspondance VBA de la proprieté adresse lien hypertexte ?
Merci et bonne journée.
A voir également:
- Access VBA Créér hyperliens dynamique actif
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
- Tableau croisé dynamique - Guide
5 réponses
Bonjour, assez compliqué ton problème.
Au pire, tu fais une requête INSERT TO pour envoyer le lien depuis le VBA vers ta table (format: lien hypertexte).
Puis tu affiches une zone de texte qui reprend le lien inséré dans le champs de ta table.
Au pire, tu fais une requête INSERT TO pour envoyer le lien depuis le VBA vers ta table (format: lien hypertexte).
Puis tu affiches une zone de texte qui reprend le lien inséré dans le champs de ta table.
trouvé !!!!
Sub TexteURLDEI_Click()
Dim Base_modifProjet As DAO.Recordset
Set db = CurrentDb()
Set Base_modifProjet = db.OpenRecordset("TB_DEI")
Base_modifProjet.Index = "primarykey"
Base_modifProjet.Seek "=", ListeNumDEI
If IsNull(Base_modifProjet("URLDEI")) Then Message = "Aucun lien enregistré pour cette DEI Merci de le Créér"
If IsNull(Base_modifProjet("URLDEI")) Then MsgBox (Message)
If IsNull(Base_modifProjet("URLDEI")) Then Exit Sub
TexteURLDEI.HyperlinkSubAddress = Base_modifProjet("URLDEI")
TexteURLDEI.HyperlinkAddress = Base_modifProjet("URLDEI")
End Sub
Sub TexteURLDEI_Click()
Dim Base_modifProjet As DAO.Recordset
Set db = CurrentDb()
Set Base_modifProjet = db.OpenRecordset("TB_DEI")
Base_modifProjet.Index = "primarykey"
Base_modifProjet.Seek "=", ListeNumDEI
If IsNull(Base_modifProjet("URLDEI")) Then Message = "Aucun lien enregistré pour cette DEI Merci de le Créér"
If IsNull(Base_modifProjet("URLDEI")) Then MsgBox (Message)
If IsNull(Base_modifProjet("URLDEI")) Then Exit Sub
TexteURLDEI.HyperlinkSubAddress = Base_modifProjet("URLDEI")
TexteURLDEI.HyperlinkAddress = Base_modifProjet("URLDEI")
End Sub
Bonjour,
En fait j'arrive parfaitement a afficher l'URL dans la zone de texte.
MAis c'est une zone de texte et donc elle est saisissable. Même si le lien s'affiche souligné de bleu, il n'est pas actif.
Il faudrait peut être passer par une Etiquette. Mais alors il faudra modifier le Nom, Le lien hypertexte et l'adresse hypertexte.
Ce qui me manque c'est leur correspondance VBA pour automatiser.
Merci en tout cas.
En fait j'arrive parfaitement a afficher l'URL dans la zone de texte.
MAis c'est une zone de texte et donc elle est saisissable. Même si le lien s'affiche souligné de bleu, il n'est pas actif.
Il faudrait peut être passer par une Etiquette. Mais alors il faudra modifier le Nom, Le lien hypertexte et l'adresse hypertexte.
Ce qui me manque c'est leur correspondance VBA pour automatiser.
Merci en tout cas.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question