Hi,

i'm trying to connect access2000 and mappoint 2004 with vba.
In my Mappoint are pushpins with customer Id numbers from access.
When i click on the pushpin, i would be happy if i could somehow detect this in access and read out the customer id to open a formular with this customer in access.

thanks

mimo123

For this example: in access add an activex object (Microsoft MapPoint Control 11.0) to form1 and add this code. Run the form and add a pushpin from the drawing toolbar. add a shape from the drawing toolbar. Select different items. When you select the pushpin the message box appears. Hope this helps...

Code:

Option Compare Database
Dim objMap As MapPoint.Map
Dim objPin As MapPoint.Pushpin

Sub Form_Load()
Set objMap = MappointControl1.NewMap(geoMapNorthAmerica)
  MappointControl1.Toolbars.Item("Navigation").Visible = True
MappointControl1.Toolbars.Item("Drawing").Visible = True

End Sub

Private Sub MappointControl1_SelectionChange(ByVal pNewSelection As Object, ByVal pOldSelection As Object)

If TypeOf pNewSelection Is Pushpin Then
    
        MsgBox pNewSelection.Name
        
    End If
End Sub

Thanks,

i tried several times to insert mappoint control 11 to form1 and to add your code.
It doesn't work. When i open the form the error "objekt is missing" and when i click into the activex in the form error "ols server is not installed"
So i tried some other things. No succes.
But in the mappoint helpfile mappoint control 11 is only for vb not vba.

Can I get the selectionchange event in a mappoint application running "free"?

thanks
mimo123

Hey mimo

If I understand your problem maybe try this:

Open the Module in Access that contains the code John gave you. Then in the VBA Editor Click:

Tools> References...

Search through the list and select:

Microsoft MapPoint 11.0 Object Library (North America)

If it is not in the list, browse for the file:

C:\Program Files\Microsoft MapPoint\MPNA82.tlb

Note change the drive and directory to suit where you installed MP 2004.

Hope this helps
Ciao,

Thanks calv1ns,

re-thought your tip and checked, the mappoint library was installed.
The problem seem's to be, that Microsoft MapPoint Control 11.0 is only working in vb not in vba (checked again in online help).

Has anyone an idea, how i can teach access to recognise selectionChange events in vba?

Thanks and nice weekend
mimo