valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
10 mai 2016 à 16:14
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
10 mai 2016 à 17:46
Re Bonjour,
Maintenant c'est avec le navigateur web que j'ai des soucis.
J'ai un Label relié à un champ de ma table qui est format LienHypertext.
J'ai paramétré mon Label comme suit.
Ishyperlink=non
Afficher comme lien hypertext = si lien hyper texte
cible =
sur l'évènement click de mon label j'ai mis ce code:
Private Sub Plus_Click()
Dim ctlNavWeb As SHDocVw.WebBrowser Set ctlNavWeb = Me.ctlNavWeb.Object
Dim strURL As String 'Le lien web est au format: "Plus...#HTTP etc... 'Je récupère juste l'adresse strURL = Nz(Mid(Me![Lien Web], 9, Len(Me![Lien Web]) - 10), "")
'vérification de l'adresse tout est bon MsgBox strURL
If strURL <> "" Then 'ctlAjout est mon cotrolTab et je sélectionne la page 2 ou se trouve le navigateur web Me.ctlAjout.Value = 1 With ctlNavWeb .Left = Me.ctlAjout.Pages("pgeWeb").Left '2595 .Top = Me.ctlAjout.Pages("pgeWeb").Top '60 .Width = Me.ctlAjout.Pages("pgeWeb").Width '6885 .Height = Me.ctlAjout.Pages("pgeWeb").Height '4860 .Navigate strURL .Visible = True End With
cmdQuitterAloCine.Visible = True
Else MsgBox "Pas de lien vers AloCiné définit pour ce film!", vbExclamation, "Affichage page Web"
End If End Sub
L'adresse est bonne sur le msgbox
J'ai un plantage sur mon Navigateur Web:
il me dis erreur de script sur la page, je clique sur ok est là re erreur: la page est introuvable.
sur ce il me lance FireFox et se cale sur la page demandée.
J'en perds mon latin
Faut-il faire une boucle d'attente sur le Navigateur d'access?
Dim strURL As String 'Le lien web est au format: "Plus...#HTTP etc... 'Je récupère juste l'adresse strURL = Nz(Mid(Me![Lien Web], 9, Len(Me![Lien Web]) - 10), "")
'vérification de l'adresse tout est bon MsgBox strURL
If strURL <> "" Then 'ctlAjout est mon cotrolTab et je sélectionne la page 2 ou se trouve le navigateur web Me.ctlAjout.Value = 1 With ctlNavWeb .Left = Me.ctlAjout.Pages("pgeWeb").Left '2595 .Top = Me.ctlAjout.Pages("pgeWeb").Top '60 .Width = Me.ctlAjout.Pages("pgeWeb").Width '6885 .Height = Me.ctlAjout.Pages("pgeWeb").Height '4860 .Visible = True '.Navigate strURL .ControlSource = strURL
End With
cmdQuitterAloCine.Visible = True
Else MsgBox "Pas de lien vers AloCiné définit pour ce film!", vbExclamation, "Affichage page Web"