470,630 Members | 2,003 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 470,630 developers. It's quick & easy.

adnanced record sorting

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

Dec 15 '06 #1
1 907
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" <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

Dec 16 '06 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

17 posts views Thread by perryche | last post: by
2 posts views Thread by Hrvoje Vrbanc | last post: by
reply views Thread by Edwin Knoppert | last post: by
7 posts views Thread by Kamal | last post: by
3 posts views Thread by Don | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.