adnanced record sorting

15 Dec 2006 10:49 AM

Marc

From: Marc - view profile
Date: Fri 15 Dec 2006 10:48

Email: "Marc" <marc_cro***@hotmail.com>

Groups:   microsoft.public.vb.general.discussion
Not yet ratedRating:
show options
Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Remove | Report Abuse | Find messages by this author

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

16 Dec 2006 12:22 PM

Cor Ligthert [MVP]

Marc,

Why not use DotNet code instead pre DotNet solutions.

The recordset is not from this time anymore, and therefore you get less and
less answers on your questions. There are very few people (including me)
interested to find a solution for a recordset problem..

Cor

Show quoteHide quote

"Marc" <marc_cro***@hotmail.com> schreef in bericht
news:1166179773.774234.221050@80g2000cwy.googlegroups.com...
> From: Marc - view profile
> Date: Fri 15 Dec 2006 10:48
> Email:   "Marc" <marc_cro***@hotmail.com>
> Groups:   microsoft.public.vb.general.discussion
> Not yet ratedRating:
> show options
> Reply | Reply to Author | Forward | Print | Individual Message | Show
> original | Remove | Report Abuse | Find messages by this author
>
>
> 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
>