MapForums

Hi, I am having problems adding a pushpin, I can select a pushpin from the 'Draw Menu Bar' I then click on the map, the pushpin Icon with target shows, but when I left click it simply disappears and does not insert the pushpin.
This used to work fine, but suddenly it has stopped working. I have uninstalled and re-installed Mappoint 2006 Europe, to no avail. Any Ideas? Thanks in advance.

Peter

Previously Posted in ‘Article Comments and Questions’
Pushpin (cannot add)

Additional info.

Trying to add pushpin using VBA Code I get the following error.

run-time error '4000':

An unexpected internal error occured.

Hi Peter, it's me again!! I've come across that error 4000 in the past and I think it was to do with a memory leakage. Provided your code is OK then it looks like you'll have to get your IT support involved. If you want me to run your code as a test then post it or PM it to me.

David

__________________
David
MapPoint Europe Gallery at http://www.broomanalysis.plus.com/gallerylist.html

Hi David,


I do not generally use code to add pushpins.
Just thought I’d try it to see if I could do it that way.
The problem is adding a pushpin using Mappoint itself.

However the code I used is from Microsofts examples, slightly modified because there are 2 Leeds in the UK.


Sub AddPushpinToGoodFindMatch()
Dim objApp As New MapPoint.Application
Dim objFR As MapPoint.FindResults
'Set up the application
objApp.Visible = True
objApp.UserControl = True
Set objMap = objApp.ActiveMap
Set objRoute = objMap.ActiveRoute
'Get a FindResults collection
Set objFR = objApp.ActiveMap.FindResults("Leeds")
objRoute.Waypoints.Add objFR.Item(1)
'If the first result is a good match, then use it
If objFR.ResultsQuality = geoFirstResultGood Then
objApp.ActiveMap.AddPushpin objFR.Item(1)
ElseIf objFR.ResultsQuality = geoAmbiguousResults Then
objApp.ActiveMap.AddPushpin objFR.Item(1)
objApp.ActiveMap.AddPushpin objFR.Item(2)
Else
MsgBox "No a good match."
End If
End Sub


But as I say this is not really the problem, I use VBA to Add places and Postcode without any problems.
“get your IT support involved”, what IT support, I am it L

Thanks for trying

Regards

Peter

Hi Peter. Your code runs fine on my MP2006. I can't help thinking the error 4000 and not being able to add a pushpin using the package are likely to be the same issue. Anyway I've exhausted my level of knowledge. Hopefully someone in this forum with a deeper understanding than me will know how to proceed. 3 things you might try:

- there is a thread referenced at the bottom of this page which has some similarity, although as you've re-loaded MapPoint I can't see it being a corrupt file
- you may want to air the error 4000 issue in a more general, more techy forum
- one thing that struck me, when you try to add the pushpin using the package, and it disappears, does MapPoint still think there's a pushpin there or not. For example if you export to excel does it identify the pushpin?

Sorry, I know this isn't much help.

__________________
David
MapPoint Europe Gallery at http://www.broomanalysis.plus.com/gallerylist.html

Hi,

Looks a VB interpreter runtime error to me. What if you try exactly the same on a different system ?

__________________
rgds, Wilfried Mestdagh
www.mestdagh.biz
MapPoint coding demo
Order MapPoint 2009 with Routing and User Tools Spreadsheet

Hi,

The problem is now solved, but only after a complete re-install of Windows XP

Must have been something to do with the OS.

Thanks to all who replied.


Peter

Just thought I'd follow up with a potential solution in case someone else is in the same boat, read this thread and try the suggestions

MAPPOINT - Problem : Pushpin is NOT displayed

__________________