adnanced record sorting

[Marc]

From: Marc - view profile
Date: Fri 15 Dec 2006 10:48
Email: "Marc" <[e-mail]>
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

[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

"Marc" <ma*********@hotmail.comschreef in bericht
news:11**********************@80g2000cwy.googlegro ups.com...

From: Marc - view profile
Date: Fri 15 Dec 2006 10:48
Email: "Marc" <[e-mail]>
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