Discussion :

[Jacques-Henri]

Bonjour,
J'utilise une BDD access depuis quelques temps et au fur et à mesure que j'avance , je me rends compte de l'utilité de son perfectionnement et, notre forum et la FAQ m'ont déjà beaucoup aidé. Aussi, je soumets l'idée suivante que je pourrai mettre à profit.
J' ai un FO avec une liste modifiable. Lorsque je clic sur la sélection j'ouvre un autre FO qui m'affiche les renseignements dont j'ai besoin. Pas de problème jusque là. Cependant , j'aimerai que lorsque j'ai fait ma sélection , j'ouvre non plus ce FO mais immédiatement le lien hypertexte en rapport avec la sélection. En clair , je voudrais par ex que ma sélection faite sur "Produit" , j'ouvre le lien vers le site de l'usine de fabrication "Hypercool". en ayant eu soin de placer quelque part l'adresse du site Web.
Merci pour votre aide.

[LedZeppII]

Bonjour,

Voici un exemple utilisant un contrôle étiquette masqué (propriété Visible = Non).
Le contrôle s'appelle lblLien.
Dans l'événement sur "Après MAJ" de la zone de liste modifiable

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub cmbListe_AfterUpdate()
Dim strAdr As String
' Récupérer adresse (ici deuxième colonne de la liste)
strAdr = cmbListe.Column(1)
If strAdr <> "" Then
   Me.lblLien.HyperlinkAddress = strAdr
   Me.lblLien.Hyperlink.Follow True
End If
End Sub

Si la colonne contenant l'adresse est issue d'un champ type "Lien hypertexte" il faut changer la ligne

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

   Me.lblLien.HyperlinkAddress = strAdr

en

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

   Me.lblLien.HyperlinkAddress = Application.HyperlinkPart(strAdr, acAddress)

car dans ce cas strAdr est au format texte affiché#adresse#sous-adresse#info-bulle
Ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Liste modifiable avec lien hypertexte#http://www.developpez.net/forums/showthread.php?p=3095447#

A+

[Jacques-Henri]

Merci LEDZEP II pour ta réponse, il s'est passé quelques jours avant la lecture mais je reviens d'un p'tit congé de pâques: un peu de repos, ça ne fait pas de mal. Bon, plus sérieusement, je mets en application demain ce que tu me proposes. Déjà merci de me mettre sur la piste.