In addition to using MapPoint, here is a method that calls Internet Explorer,
using GoogleMaps:
Option Compare Database
Option Explicit
Sub GoogleMap(strStartingPoint As String, strDestination As String)
'
http://www.utteraccess.com/forums/showflat.php?Cat=&Number=1356166
' Given a FROM address and TO address, will start Internet Explorer, and
call up
' GoggleMaps to give directions with total mileage estimate!
' Example of calling from Immediate window (watch for word wrap):
' Call GoogleMap("1600 Pennsylvania Avenue, Washington, DC","9199 Office
Center Dr, Raleigh, NC 27615")
Dim strURL As String
Dim ie As Object
'Convert spaces to + sign
strStartingPoint = Replace(strStartingPoint, " ", "+")
strDestination = Replace(strDestination, " ", "+")
strURL = "
http://maps.google.com/maps?f=d&hl=en&saddr=" _
& strStartingPoint & "&daddr=" _
& strDestination & "&ie=UTF8&z=5&om=1"
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate strURL
ie.Visible = True
End Sub
Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________