Quote:
frmMap.mpc.NewMap ("C:\Program Files\Microsoft MapPoint Europe\Templates\belgium.ptt")
Load frmMap
frmMap.Show
Dim objPin As Pushpin
Dim objLoc As Location
Dim place As String
Dim objApp As New MapPoint.Application
For cntr = 1 To objRec.RecordCount
place = objRec!firmaid & ", " & objRec!naam & ", " & objRec!straatnaam & ", " & objRec!straatnummer & ", " & objRec!gemeente & ", " & objRec!postcode
Set objLoc = frmMap.mpc.ActiveMap.FindResults(place).Item(1)
If objLoc Is Nothing Then
MsgBox "Nothing Found"
Exit Sub
End If
frmMap.mpc.ActiveMap.AddPushpin objLoc, objRec!naam
objRec.MoveNext
Next cntr
|
This is the code i'm using. The following error is what I get:
Quote:
|
the requested member of the collection does not exist. Use a valid name or index number
|
When I click the debug-button is reffers to "Set objLoc = frmMap.mpc.ActiveMap.FindResults(place).Item(1)"
I'm stuck with this problem for already about 2 days and I can't figure it out myself
Somebody who can help me?
thanks in advance.