Hi,

I tried using the above code with uk post codes entered by the user (as against reading from a spreadsheet). i am using MP2004. What should I put in the line:

Set objApp=CreateObj("Mappoint.Application.EU.16")

At the moment i get on this line the error message:

Activex component cant create object.

Also what is the right format for the post code (SE19 1JX or SE191JX)?

All i want to calculate is the driving distance and route between two postcode. If there is a simpler method, i will appreciate your help. Thanks.

Ayo

If I remember rightly for MP2004 you’ll need

objApp = CreateObject("MapPoint.Application.EU.11")

Make sure you’ve set up the reference to MP. In the vba window click on Tools, then References and then scroll down and tick the appropriate version of MP.

I think MP is comfortable with either format for postcodes.

If I take your final question literally then for calculating distance and route between 2 postcodes then you can use the package and forget about developing code. If in actual fact your requirement is more complicated and you need code then search this forum and you’ll find loads of code snippets.

Thank David.

i am developing in VB6, my code is below. When i run it,it just hangs and I have to ctrl+alt+del. All I want to do is calculate the driving distance between the postcodes entered in Text1 and Text2. Thanks for helping. Is there an activex component for this? Dont mind buying.

The code:

Code:

Private Sub Command1_Click()
        MappointControl1.NewMap "c:\ccdmap\cleanmap.ptm"
        Dim objApp As New MapPoint.Application
        Dim objMap As MapPoint.Map
        Dim objRoute As MapPoint.Route
        Dim objLoc1 As MapPoint.Location
        Dim objLoc2 As MapPoint.Location
        Set objApp = CreateObject("MapPoint.Application.EU.11")
        
        objApp.Visible = False
        Set objMap = objApp.ActiveMap
        Set objRoute = objMap.ActiveRoute
            'Locate the 2 points
            Set objLoc1 = objMap.FindResults(Text1.Text)
            Set objLoc2 = objMap.FindResults(Text2.Text)
            'Calculate the route
            objRoute.Waypoints.Add objLoc1
            objRoute.Waypoints.Add objLoc2
            objRoute.Calculate
            
            'Drive Distance in kms
           Label3.Caption = "Driving Dist kms: " + objRoute.Distance
            'Drive Time in minutes
           Label4.Caption = "Driving Time mins: " + objRoute.DrivingTime
            'Straight Line Distance in kms (as a check)
            Label5.Caption = "Straight line dist kms: " + objMap.Distance(objLoc1, objLoc2)
            'objRoute.Clear
        
     objMap.Saved = True
     Set objApp = Nothing
     Set objMap = Nothing
     Set objLoc1 = Nothing
     Set objLoc2 = Nothing
     Set objRoute = Nothing
End Sub

ayo

Sorry, my feeble programming experience only extends to vba and Python. I'd recommend searching this site for examples eg.

Mappoint Control

I would set Visible to true for debugging - that can be very revealing as to what the problem might be!

Eg. newer versions of MapPoint will display a nag screen in trial mode - this can't be dismissed when MapPoint is hidden.
Also first-run MapPoint will usually give you a query about Wifi location.


Richard

The problem was that I did not specify the correct active map, should have used:

Set oMap=Mappointcontrol1.Activemap.

That sorted it and was able to view the route.

Thanks.

ayo

Here's some modified code that allows it to skip over postcodes it cannot find, and logs the rows to Excel VBA Immediate window

Code:

Option Explicit
Dim objApp As New MapPoint.Application
 
Sub Button1_Click()
 On Error GoTo LogError

 Dim omp As MapPoint.Map
 Dim ort As MapPoint.Route
 Dim ofr As MapPoint.FindResults
 Dim loc1, loc2 As MapPoint.Location
 Set objApp = CreateObject("MapPoint.Application.EU")
 objApp.Visible = True
 Set omp = objApp.NewMap
 Set ort = omp.ActiveRoute
 Worksheets("postcode.org").Cells(1, 3).Value = "Drive Distance"
 Worksheets("postcode.org").Cells(1, 4).Value = "Drive Time (mins)"
 Worksheets("postcode.org").Cells(1, 5).Value = "Straight Line Distance"
 
 Dim row As Integer
 row = 2

 Do While Worksheets("postcode.org").Cells(row, 2) <> ""
     Set ofr = omp.FindResults(Worksheets("postcode.org").Cells(row, 1))
     'If ofr.Count > 0 Then
       Set loc1 = ofr(1)
     'End If
     Set ofr = omp.FindResults(Worksheets("postcode.org").Cells(row, 2))
     'If ofr.Count > 0 Then
       Set loc2 = ofr(1)
     'End If
    
     ort.Waypoints.Add loc1
     ort.Waypoints.Add loc2
     ort.Calculate
    
     Worksheets("postcode.org").Cells(row, 3) = ort.Distance
     Worksheets("postcode.org").Cells(row, 4) = ort.DrivingTime
     Worksheets("postcode.org").Cells(row, 5) = omp.Distance(loc1, loc2)
    
     ort.Clear
     Set loc1 = Nothing
     Set loc2 = Nothing
    
     row = row + 1
 Loop
 
 omp.Saved = True
Exit Sub

LogError:
Debug.Print "Postcode Lookup Failed Row: " & row & " " & Worksheets("postcode.org").Cells(row, 1) & " " & Worksheets("postcode.org").Cells(row, 2)
Debug.Print Err.Number & " - " & Err.Description
Resume Next

End Sub