MapForums

I need to calculate the driving distance between 2 addresses. I was wondering if anyone had a sample of VBA code I could use within Access. I have 2 addresses in a record. The user clicks a "Map It" command button and the map with route is displayed. I used this code from the sample MDB file ChrisG posted and it works great. I assume I would just add a "get distance" statement but that's just a guess on my part.

Thanks

hi,
while you did not post some Code i can not Qoute it.

after the :Calculate() Methode add a new Line with :Distance()

__________________
greetings by OHR
Jimmy

Sorry, here is the code I used. My real goal is to store the distance and travel time to field1 and field2.

Private Sub cmdMap_Click()
Dim oApp As Object, oMap As Object, oPush(1 To 2) As Object, oLoc(1 To 2) As Object

Set oApp = CreateObject("Mappoint.Application")
Set oMap = oApp.NewMap

Set oLoc(1) = oMap.Find(Address & " , " & City & " , " & State)
Set oLoc(2) = oMap.Find(Address2 & " , " & City2 & " , " & State2)
If Not oLoc(1) Is Nothing Then
Set oPush(1) = oMap.AddPushpin(oLoc(1))
oPush(1).GoTo

If Not IsNull(MyName) Then oPush(1).Name = MyName
oPush(1).Highlight = True

If Not oLoc(2) Is Nothing Then
Set oPush(2) = oMap.AddPushpin(oLoc(2))

oPush(2).Highlight = True

With oMap.ActiveRoute
.Waypoints.Add oLoc(1)
.Waypoints.Add oLoc(2)
.Calculate
End With
oMap.CopyDirections
txtDir.SetFocus
RunCommand acCmdPaste

Else
txtDir.SetFocus
txtDir.Text = "No second location found!"
End If

oMap.DataSets(1).ZoomTo
oMap.CopyMap
imgClip.Visible = True
imgClip.Action = acOLEPaste

lblMapInfo.Caption = ""

Else
lblMapInfo.Caption = "Address Not Found!"
End If
Set oMap = Nothing
Set oApp = Nothing
Me.SetFocus


End Sub

hi,
as i say, just after .Calculate add a new Line with .Distance()

Travel Time depends on your Drive Profile e.g. Speed.
use TripTime property (Route) to get Travel Time.

__________________
greetings by OHR
Jimmy