Problème avec le Navigateur Web d'access

Question

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.WebBrowserSet ctlNavWeb = Me.ctlNavWeb.ObjectDim strURL As String'Le lien web est au format: "Plus...#HTTP etc...'Je récupère juste l'adressestrURL = Nz(Mid(Me![Lien Web], 9, Len(Me![Lien Web]) - 10), "")'vérification de l'adresse tout est bonMsgBox strURLIf 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 IfEnd 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?
 
Merci de vos réponses.

valtrase · Answer

J'ai fait cette modification pour travaillé avec le controle directement et c'est pareil bizare....
Private Sub Plus_Click()'Dim ctlNavWeb As SHDocVw.WebBrowser'Set ctlNavWeb = Me.ctlNavWeb.Object'"http://www.allocine.fr/film/fichefilm_gen_cfilm=112381.html"Dim strURL As String'Le lien web est au format: "Plus...#HTTP etc...'Je récupère juste l'adressestrURL = Nz(Mid(Me![Lien Web], 9, Len(Me![Lien Web]) - 10), "")'vérification de l'adresse tout est bonMsgBox strURLIf 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"End IfEnd Sub

Problème avec le Navigateur Web d'access

1 réponse

Votre réponse

Discussions similaires