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 6 of 6

Spend a Minute to Help a Newbie (Please)

This is a discussion on Spend a Minute to Help a Newbie (Please) within the MapPoint Desktop Discussion forums, part of the Map Forums category; I downloaded the following code from this site, which allows me to map each address individually in an Access form. ...

  1. #1
    GoSpinBoy is offline Junior Member White Belt
    Join Date
    Nov 2005
    Posts
    3

    Spend a Minute to Help a Newbie (Please)

    I downloaded the following code from this site, which allows me to map each address individually in an Access form. I've tried to figure out how to modify it so that all addresses appear on the map at the same time but have been unsuccessful.

    Can someone tell me how to tweak this code so that I can map all addresses at the same time?

    Thanks so much!

    Mike

    -----------------------

    Option Compare Database

    Dim objMap As MapPoint.Map
    Dim objPin As MapPoint.Pushpin

    Sub Form_Load()

    Set objMap = MPC.NewMap(geoMapNorthAmerica)
    MPC.Toolbars.Item("Navigation").Visible = True

    'This is done in the Form_Load so that the DataSets(1).Delete does not
    bomb in Form_Current the first time it is run
    Set objPin = objMap.AddPushpin(objMap.FindAddressResults(Me!Add ress,
    Me!City, , Me!State, Me!Zip)(1))

    For Each objPlaceCat In objMap.PlaceCategories
    objPlaceCat.Visible = False
    Next

    End Sub

    Private Sub Form_Current()

    objMap.DataSets(1).Delete
    Set objPin = objMap.AddPushpin(objMap.FindAddressResults(Me!Add ress,
    Me!City, , Me!State, Me!Zip)(1))
    objPin.Symbol = 57

    objMap.DataSets.ZoomTo

    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    objMap.Saved = True
    End Sub

  2. #2
    GoSpinBoy is offline Junior Member White Belt
    Join Date
    Nov 2005
    Posts
    3

    Help me...please

    Can anyone help me? Please?

    Mike

  3. #3
    Wilfried is offline Senior Member Black Belt
    Join Date
    Nov 2004
    Location
    Belgium
    Posts
    2,433
    Hi,

    Just call the AddPushpin method in a loop for each address you have. For example if yoir addresses are in a table then loop trough the table until you reach EOF.

  4. #4
    GoSpinBoy is offline Junior Member White Belt
    Join Date
    Nov 2005
    Posts
    3
    Wilfried,

    Thank you very much for your reply and your suggestion. I'm sorry for being such a noob, but how do I do what you suggest?

    Thanks again.

    Mike

  5. #5
    calv1ns's Avatar
    calv1ns is offline Member Green Belt
    Join Date
    Mar 2005
    Posts
    91

    Addpushpin by loop through a recordset

    This article has all the code you will need and more.

    http://www.mp2kmag.com/a48--sqlserve....mappoint.html

    Eric sells a starter book called MapPoint For Dummies at some crazy low price ($11 or something like that) - you'd best start there.

    Ciao,
    Calv1ns

  6. #6
    Eric Frost's Avatar
    Eric Frost is offline Administrator Black Belt
    Join Date
    Jul 1992
    Posts
    5,094
    Blog Entries
    4
    This is where you'll find the offer for the $11 book --
    http://www.mp2kmag.com/whats_new.html -- 9/11/05

    Eric
    ~ Order MapPoint MapPoint 2013 Here and Get Free Access to the MapForums Downloads ~
    ~~
    ~ Upgrade to Get Access to the MapForums Downloads ~

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mappoint Newbie
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 03-04-2005, 12:15 PM
  2. GPS help - Newbie
    By Suzgreive in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 11-30-2004, 12:52 PM
  3. NEWBIE needs help!!
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-08-2004, 02:27 PM
  4. Newbie - please help
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 09-05-2002, 05:48 AM
  5. First of many newbie questions ;)
    By freditoba in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 08-05-2002, 01:08 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