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