Discussion :

[caro2552]

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

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

2-la fonction VBA

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

Debug.Print sScript=oMap.addMarker(45.73908,3.1959,'http://maps.google.com/mapfiles/marker_yellow.png',"coucou");

2-la fonction Dans le HTML

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);
}}

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 .

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

[philben]

bonjour,

il s'agit de quel code source ? Lien ?

cordialement
Philippe