Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Finding closest 10 locations

This is a discussion on Finding closest 10 locations within the MapPoint Desktop Discussion forums, part of the Map Forums category; I am trying to find a way to pass in our employees and their addresses, and have it return the ...

  1. #1
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Finding closest 10 locations

    I am trying to find a way to pass in our employees and their addresses, and have it return the 10 closest to a given customer address. I have come accross some functionality that is close, but I cannot find anything that does this exactly.

    Any ideas?

  2. #2
    Dazzer is offline Senior Member Green Belt
    Join Date
    Sep 2003
    Posts
    103
    You can do something along these lines with VB, you could import all of your employees into a given dataset and then use QueryCircle to find all employees in within a set radius of the customer.

    eg.

    Code:
    dim objRecords As MapPoint.Recordset
    
    Set objRecords = objMap.DataSets.Item(1).QueryCircle(objPushPin.Location, 2)
    This would pull all of the employees in the dataset within in a 2 Mile (or kilometer depending on what unit your using) radius from objPushPin.Location (where objPushPin.Location in your customer) into the recordset objRecords.

    You will need to programatically set objPushpin as your customer.

    Code:
    Dim objloc As MapPoint.Location
    Dim onjPushPin As MapPoint.Pushpin
    Dim GappMp As Mappoint.Application
    DimObjMap As Mappoint.Map
    
    Set gappmp = CreateObject("MapPoint.Application")
    
    gappmp.Visible = True
    
    Set objMap = gappmp.ActiveMap
    
            Set objloc = objMap.FindAddressResults("StreetNo Street, Town, Village, County, PostCode")(1)
            Set objPushPin = objMap.AddPushpin(objloc, Street)
            objPushPin.Name = "PinName"
            objPushPin.BalloonState = geoDisplayBalloon
            objPushPin.Symbol = 77
            objPushPin.Highlight = True
            objPushPin.Select
    I'm not sure i've explained this very well but these articles proved helpful to me.

    http://www.mp2kmag.com/articles.asp?ArticleID=74
    http://www.mp2kmag.com/a46--find.fro....mappoint.html
    http://www.mp2kmag.com/a39--word.acc....mappoint.html

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Find closest between two sets of addresses?
    By mksql in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 08-22-2005, 12:49 PM
  2. Find 3 closest matches
    By eblubber in forum MapPoint Desktop Discussion
    Replies: 5
    Last Post: 02-09-2005, 10:45 AM
  3. Finding USA Data
    By everblader in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-19-2005, 01:41 PM
  4. finding locations
    By SimonPearse in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 09-23-2004, 09:56 AM
  5. finding a pushpin from a .dll
    By blackmap in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-10-2003, 03:11 PM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96