Trying to return all pushpins in a shape with 3 datasets on map. As i iterate through the shapes I get the same count of "3" regardless of how many pushpins are in shape . . . what am i doing wrong?
Code:
tshapes = objmap.Shapes.Count
Do While tshapes <> 0
Set objshape = objmap.Shapes.Item(tshapes)
objshape.Select
Set objrec = objdata.QueryShape(objshape)
MsgBox Str(objdata.RecordCount)
objrec.MoveFirst
reccount = 1
Do While Not objrec.EOF
reccount = reccount + 1
Loop
msgbox reccount
tshapes = tshapes - 1
Loop