Bonjour j'ai repris et adapte un code de Philben (Grand merci a lui)pour afficher une carte google maps.
J'ai commence par modifier le code du HTML pour ajouter un choix de couleur au marker directement dans la base de donnée de Philben.
Le marqueur a effectivement la couleur que je lui donne:
1-partie de code liée a l'affichage
2-la fonction VBA
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim couleur As String couleur = "http://maps.google.com/mapfiles/marker_yellow.png" displayPoint Me.Latitude, Me.Longitude, couleur, "coucou" setViewPort Afficher = True
Debug.Print sScript=oMap.addMarker(45.73908,3.1959,'http://maps.google.com/mapfiles/marker_yellow.png',"coucou");
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub displayPoint(ByVal dLat As Double, ByVal dLon As Double, ByVal colorlien As String, ByVal sText As String) Dim sScript As String sScript = "oMap.addMarker(" & toStr(dLat) & "," & toStr(dLon) & ",'" & colorlien & "'," & """" & PrepareTexte(sText) & """);" Debug.Print sScript Me.WebBrowser.Object.Document.parentWindow.execScript sScript, "JScript" End Sub
2-la fonction Dans le HTML
Des que je met le même code en pratique dans ma base, le marqueur reste désespérément rouge ,par contre le plus surprenant le texte de l'info bulle au lieu de me renvoyer "coucou" me renvoie :http://maps.google.com/mapfiles/marker_yellow.png ,le résultat du debug print donne la même information .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 oMap.addMarker = function(lat,lon,color,msg) { if (oMap.map) { var latlng = new google.maps.LatLng(lat,lon); var options = { position: latlng, map: oMap.map, 'icon' : color, title: msg }; var marker = new google.maps.Marker(options); oMap.markers.push(marker); }}
Il me semble que la seule différence notoire entre les 2 applications: la carte de Philben se trouve dans un form la mienne dans un ss form????????
Si la lumière arrive je serais enchantée
J'avoue que je ne sais pas ou a atterri mon message dans le forum access
Partager