Community of MapPoint and Virtual Earth Users and Developers
This is a discussion on Tracking P.F. Chang’s in the Midwest within the MP2K Magazine Articles forums, part of the Map Forums category; A popular Asian-themed restaurant has opened dozens of locations throughout the U.S. This article demonstrates a simple MapPoint/Access application showing ...
| |||||||
| Today's Posts | Twitter Feed | Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
| |||
| Tracking P.F. Chang’s in the Midwest Read the full article: http://www.mp2kmag.com/articles.asp?ArticleID=71 |
| |||
| Any Changes required for MapPoint2004?
I am able to run this fine in access but when I try to use the same code with MapPoint 2004 it keeps giving me errors. Are there any changes required for Access 2003 or MapPoint 2004? Thanks, Tracy Lowell |
| |||
| Errors with Access
I am trying to display MapPoint maps in Access just like the one in this article. I am cutting and pasting the code into access 2003 and using MapPoint 2004 Trial. The errors seem to center aroung the "objMap" object. Set objMap = MPC.NewMap(geoMapNorthAmerica) Run-time error 91 Oject variable or With block variable not set Run-time error 438 Object doesn't support this property or method This is the code I am using: 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!Pro pAddress(P), Me!PropCity(P), , Me!PropState(P), Me!PropZipPlus4(P))(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!Pro pAddress(P), Me!PropCity(P), , Me!PropState(P), Me!PropZipPlus4(P))(1)) objPin.Symbol = 57 objMap.DataSets.ZoomTo End Sub Private Sub Form_Unload(Cancel As Integer) objMap.Saved = True End Sub I renamed my control to "MPC" and changed the address references. Any ideas? Thanks, Tracy Lowell |
| |||
| Does this explain the problem?
I came accross this note in the MapPoint Help File. Note With MapPoint 2004, the MapPoint Control is supported only in Microsoft Visual Basic 6.0 or later. This does not include Visual Basic for Applications (for example, the Visual Basic for Applications included with Microsoft Office). It also does not include Microsoft Internet Explorer. You can use MapPoint as an ActiveDocument in Internet Explorer to achieve the same functionality. This is listed under "Getting started with the MapPoint control." Thanks for any help, Tracy Lowell |
![]() |
| Tags |
| chang’s, midwest, tracking |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Covert GPS Tracking | gilbertwa | Press Releases | 3 | 05-08-2009 10:02 AM |
| multiple tracking | bchara | MapPoint 2006/2009 Discussion | 1 | 04-30-2005 04:15 PM |
| Map for tracking on the sea | Anonymous | MapPoint 2006/2009 Discussion | 1 | 10-27-2004 12:27 PM |
| Tracking Via GPS | mkelly21 | MapPoint Web Service and Virtual Earth | 2 | 10-12-2004 08:52 PM |
| how tracking road | bchara | MapPoint 2006/2009 Discussion | 0 | 03-29-2003 04:43 AM |
Hurghada Holiday
Enjoy sunny Egypt when you book a Hurghada holiday through UlookUbook at a good price!