Hello,
I'm trying to integrate a MappointControl Activx in my Access-Formular whith the following code:
Code:
Private Sub Form_Load()
Dim apmap As MapPoint.Application
Dim objMap As MapPoint.MAP
Dim objPin As MapPoint.Pushpin
Set objMap = MappointControl1.NewMap(2)
MappointControl1.Toolbars.Item("Navigation").Visible = True
MappointControl1.Toolbars.Item("Zeichnen").Visible = True
objMap.Saved = 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
I found the code in this forum.
For the first time everything was ok. I saw the map with all functions. While closing the form i got an error. Since this time I always get an error on openig the form: 'Objekt unterstützt diese Eigenschaft oder Methode nicht'
I registerd 'Microsoft MapPoint 11.0 Object Library (Europe)'. Does enyone knows this problem?
Thanks
Ralle