Hi the below code looks through a query and creates a point on a map
for each record.

However rather than just going through each record, I need to do a kind
of secondary sort on the query. For example...there may be 100 records
in the query, but 5 different groups of records (with 20 records in
each group. So rathe than look through all 100 records I need to look
through the first 20...then chnage the colour of the point and look
through the next 20 on so on.

The data looks like...

route 1 - citywatford
route 1 - city maidenhead
route2 - city birminihgam
route 2 - city london
route 3 ...etc. etc.

and it is the route number i want to group by.

The route numbers change each time the program is run also

Anyone who can help?????? Thanks in advance

Marc
------------------------------------------------------------------------

Set Recordset = CurrentDb.OpenRecordset("SELECT * FROM QueryRoutes;")
If Recordset.RecordCount > 0 Then
While Not Recordset.EOF
i = i + 1
ReDim Preserve objLoc2(1 To i)
Set objLoc2(i) = objMap.FindAddressResults(Recordset!Address,
Recordset!City, , , Recordset!Postal_code, geoCountryUnitedKingdom)(1)
Set objPin = objMap.AddPushpin(objLoc2(i), Recordset!Address)
Recordset.MoveNext
Wend
End If

Hi Marc,

make a temporary field in your table structure (for the route or
whatever you will sort by). Just before you create the map points,
updte the table with temporary field information so you can use it to sort.

Warm Regards,
Crystal
*
(: have an awesome day
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*



Marc wrote:
> Hi the below code looks through a query and creates a point on a map
> for each record.
>
> However rather than just going through each record, I need to do a kind
> of secondary sort on the query. For example...there may be 100 records
> in the query, but 5 different groups of records (with 20 records in
> each group. So rathe than look through all 100 records I need to look
> through the first 20...then chnage the colour of the point and look
> through the next 20 on so on.
>
> The data looks like...
>
> route 1 - citywatford
> route 1 - city maidenhead
> route2 - city birminihgam
> route 2 - city london
> route 3 ...etc. etc.
>
> and it is the route number i want to group by.
>
> The route numbers change each time the program is run also
>
> Anyone who can help?????? Thanks in advance
>
> Marc
> ------------------------------------------------------------------------
>
> Set Recordset = CurrentDb.OpenRecordset("SELECT * FROM QueryRoutes;")
> If Recordset.RecordCount > 0 Then
> While Not Recordset.EOF
> i = i + 1
> ReDim Preserve objLoc2(1 To i)
> Set objLoc2(i) = objMap.FindAddressResults(Recordset!Address,
> Recordset!City, , , Recordset!Postal_code, geoCountryUnitedKingdom)(1)
> Set objPin = objMap.AddPushpin(objLoc2(i), Recordset!Address)
> Recordset.MoveNext
> Wend
> End If
>