Forum - Problèmes liés à mes codes mis à disposition - Pour ouvrir une page d'un site web
Sujet n° 809
le 26/04/2018 : 11:16
par possible924
visiteur
Bonjour à tous,
Sur le site, je trouve le mémo : "Pour ouvrir une page d'un site web" Je voudrais à l'aide d'un bouton atteindre la page relative à www.jerechos.com/
Mon bouton a pour nom "AtteindreBlog" J'ai une étiquette indépendante "lblAddress" et un contrôle zone de texte "txtAddress"
J'ai attaché le code du site au bouton ce qui donne :
Private Sub AtteindreBlog_Click() Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "") Me!lblAddress.ForeColor = 1279872587 Me!lblAddress.FontUnderline = True If Not IsNull(Me!txtAddress.Value) Then Me!lblAddress.HyperlinkAddress = "http://" & Me!txtAddress.Value Me!lblAddress.HyperlinkAddress = "" End If End Sub
Mais ça ne marche pas, l'étiquette indépendante prend lien la valeur du contrôle texte mais n'ouvre pas la page web Au secours
Merci par avance pour votre aide Pierre
Réponse n° 1
--------
le 26/04/2018 : 13:00
par 3Stone
Administrateur
--------
le 26/04/2018 : 13:00
par 3Stone
Administrateur
Bonjour,
Il manque un bout...
Essaies :
Private Sub AtteindreBlog_Click() Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "") Me!lblAddress.ForeColor = 1279872587 Me!lblAddress.FontUnderline = True If Not IsNull(Me!txtAddress.Value) Then Me!lblAddress.HyperlinkAddress = "http://" & Me!txtAddress.Value Me!lblAddress.HyperlinkAdress.Follow Me!lblAddress.HyperlinkAddress = "" End If End Sub
Il manquait le "Follow"
Cordialement,
Pierre (3Stone)
Réponse n° 4
--------
le 26/04/2018 : 20:35
par possible924
visiteur
--------
le 26/04/2018 : 20:35
par possible924
visiteur
j'ai supprimé les étiquettes orphelines et j'ai fait le code suivant :
Private Sub AtteindreBlog_Click() If IsNull(Me.Cst_Blog) Then Exit Sub Application.FollowHyperlink "http://" & Me.Cst_Blog, , True End Sub Private Sub AtteindreSite_Click() If IsNull(Me.Cst_Site) Then Exit Sub Application.FollowHyperlink "http://" & Me.Cst_Site, , True End Sub
et ça marche très bien
Bonne soirée
Pierre
sujet actif
sujet clos
Important!
Nouveau message
Rectifier message Clôturer sujet Remonter
Rectifier message Clôturer sujet Remonter