Forum - Problèmes liés à mes codes mis à disposition - Pour ouvrir une page d'un site web


 2 membres
Connectés : ( personne )
- La Charte du Forum

- Forum
- Problèmes liés à mes codes mis à disposition

  Sujet n° 809
  Pour ouvrir une page d'un site web
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

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° 2
--------
le 26/04/2018 17:32
par possible924
 
visiteur

J'obtiens le message d'erreur "Erreur d'exécution 424, Objet requis"

A+

  
Réponse n° 3
--------
le 26/04/2018 18:02
par 3Stone
 
Administrateur

re,

Ton étiquette n'est probablement pas indépendante...

Cordialement,

Pierre (3Stone)

  
Réponse n° 4
--------
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  
Rectifier message   Clôturer sujet   Remonter sujet  
 Forum