Access Google Maps

[TMW02]

Goedemorgen ,

Weet iemand hoe je google maps kan koppelen aan Access?

Wat ik eigenlijk graag zou willen is dat met een knop er een formulier wordt geopend die de route in Google Maps weergeeft.

Heb met enig onderzoek wat gevonden echter functioneert dit niet met de nieuwe google maps

Groeten ,

Marcel

 

[OctaFish]

Dan zou ik zeggen: begin eens met te posten wat je al hebt .

 

[TMW02]

Private Sub Knop609_Click()
DoCmd.Hourglass (True)
MyGoogleMapURL = "http://maps.google.com/maps?q=from:  "

MyGoogleMapURL = MyGoogleMapURL & "Adres" & ", " & "Stad" & " to: " & Me![Aanleverlocatie_Adres] & " , " & Me![Bestemming plaats] & " , " & Me![Landen_Id][QUOTE

MyGoogleMapURL = MyGoogleMapURL
DoCmd.OpenForm "frmGoogleMap", acNormal

Forms![frmGoogleMap].wbbWebsite.Navigate URL:=MyGoogleMapURL

DoCmd.Hourglass (False)
End Sub

 

[OctaFish]

Ik gebruik (al heel lang, en de code werkt nog steeds ) deze functie:

Function GoogleMaps(Van As String, Naar As String)
    GoogleMaps = "https://maps.google.nl/maps?f=q&hl=nl&daddr=" & Naar & "&saddr=" & Van
End Function

Sub testGoogle()
Dim Naar As String, Van As String
    Naar = "Bleiswijk+2665+PC+Prismalaan+West+23"
    Van = "Amsterdam+1093+NG+Oranje-Vrijstaatplein+2"
    MsgBox GoogleMaps(Van, Naar)
End Sub

 

[TMW02]

Ik denk dat ik dan iets fout doe want bij mij werkt dit niet ,

 

[OctaFish]

Ik zou zeggen: post de db er dan eens bij