Problème avec le Navigateur Web d'access

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
17 mars 2017
- - Dernière réponse : valtrase
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
17 mars 2017
- 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?

Merci de vos réponses.







Afficher la suite 

Votre réponse

1 réponse

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
17 mars 2017
0
Merci
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'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"

End If
End Sub

Commenter la réponse de valtrase

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.