Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access probleme line hypertexte

probleme line hypertexte

5 réponses
Avatar
AIR'H
Bonjour à tous

j'ai un formulaire basé sur une table (rien de plus classique)
j'ai un champ adresseweb ds lequel je référence une url
je souhaiterais en + de ce champ créer un bouton qui me permette
d'aller directement sur le site web.

J'ai crée une requete [Formulaires]![F_resultatactivesiteweb]![Adresse]
elle me trouve bien l'adresse contenue dans le champ
mais je n'arrive pas à lui dire de se connecter directement

j'ai essayé avec les propriétés du bouton (adresselienhypertexte)
je pointe sur ma requete il me l'ouvre mais c'est tout
je voudrais qu'il me connecte directement sur la page du site

un petit conseil svp

merci d'avance
BV
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

quelle est la relation entre ton champ texte contenant une url et une
requête ?

le champ texte ( texte0 par exemple),
sur l'événement click de ton bouton (Commande0 par exemple) tu mets ce code:
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
If InStr(1, Me.texte0, "@") <> 0 Then
HLK.Address = "mailto:" & Me.texte0
Else
HLK.Address = Me.Texte0
End If
Set HLK = Nothing

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"AIR'H" a écrit dans le message de
news:c7sls8$olb$
Bonjour à tous

j'ai un formulaire basé sur une table (rien de plus classique)
j'ai un champ adresseweb ds lequel je référence une url
je souhaiterais en + de ce champ créer un bouton qui me permette
d'aller directement sur le site web.

J'ai crée une requete [Formulaires]![F_resultatactivesiteweb]![Adresse]
elle me trouve bien l'adresse contenue dans le champ
mais je n'arrive pas à lui dire de se connecter directement

j'ai essayé avec les propriétés du bouton (adresselienhypertexte)
je pointe sur ma requete il me l'ouvre mais c'est tout
je voudrais qu'il me connecte directement sur la page du site

un petit conseil svp

merci d'avance
BV




Avatar
AIR'H
probleme lorsque je clique sur bouton
voici le message :
"impossible d'ouvrir www.yahoo.fr. Impossible d'ouvrir le fichier spécifié"
pour info ce que j'ai mis :
commande68 (c'est le bouton)
adresse (c'est le champ qui contient l'adresse du site web)

Private Sub Commande68_Click()
Dim HLK As Hyperlink
Set HLK = Commande68.Hyperlink
If InStr(1, Me.Adresse, "@") <> 0 Then
HLK.Address = "mailto:" & Me.Adresse
Else
HLK.Address = Me.Adresse
End If
Set HLK = Nothing
End Sub



"Raymond [mvp]" a écrit dans le message news:

Bonjour.

quelle est la relation entre ton champ texte contenant une url et une
requête ?

le champ texte ( texte0 par exemple),
sur l'événement click de ton bouton (Commande0 par exemple) tu mets ce
code:

Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
If InStr(1, Me.texte0, "@") <> 0 Then
HLK.Address = "mailto:" & Me.texte0
Else
HLK.Address = Me.Texte0
End If
Set HLK = Nothing

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"AIR'H" a écrit dans le message de
news:c7sls8$olb$
Bonjour à tous

j'ai un formulaire basé sur une table (rien de plus classique)
j'ai un champ adresseweb ds lequel je référence une url
je souhaiterais en + de ce champ créer un bouton qui me permette
d'aller directement sur le site web.

J'ai crée une requete [Formulaires]![F_resultatactivesiteweb]![Adresse]
elle me trouve bien l'adresse contenue dans le champ
mais je n'arrive pas à lui dire de se connecter directement

j'ai essayé avec les propriétés du bouton (adresselienhypertexte)
je pointe sur ma requete il me l'ouvre mais c'est tout
je voudrais qu'il me connecte directement sur la page du site

un petit conseil svp

merci d'avance
BV








Avatar
Raymond [mvp]
Soit ton adresse est complète du genre: http://www.yahoo.fr/
soit tu complètes dans le code:
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
If InStr(1, Me.Adresse, "@") <> 0 Then
HLK.Address = "mailto:" & Me.Adresse
Else
HLK.Address = "http://" & Me.Adresse & "/"
End If
Set HLK = Nothing

si tes adresses sont du type complètes , faudra tester le début pour savoir
si c'est bon ou pas.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"AIR'H" a écrit dans le message de
news:c7t4ml$87k$
probleme lorsque je clique sur bouton
voici le message :
"impossible d'ouvrir www.yahoo.fr. Impossible d'ouvrir le fichier
spécifié"

pour info ce que j'ai mis :
commande68 (c'est le bouton)
adresse (c'est le champ qui contient l'adresse du site web)

Private Sub Commande68_Click()
Dim HLK As Hyperlink
Set HLK = Commande68.Hyperlink
If InStr(1, Me.Adresse, "@") <> 0 Then
HLK.Address = "mailto:" & Me.Adresse
Else
HLK.Address = Me.Adresse
End If
Set HLK = Nothing
End Sub


Avatar
AIR'H
ca marche
comme d'habitude j'ai toujours des réponses précises
dans ce forum
merci encore
BV
Avatar
Pierre CFI [mvp]
c'est sympa pour Raymond (dit la science) :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"AIR'H" a écrit dans le message de news:c7t9nf$66r$
ca marche
comme d'habitude j'ai toujours des réponses précises
dans ce forum
merci encore
BV