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