MapForums

Hello

I am using mappoint Europe 2004 and access 2003 to map routes from London to France or elsewhere in continental Europe, the resulting route always uses the “Calais Dover (East)” . My preferred route would by via the Euro Shuttle crossing. I have tried placing a drawing object over Dover and avoiding the object, this results in other sea ferry routes being chosen? Is it possible to force the use of the Shuttle??

Regards
Joe

Hi,

Maybe the most easy is to set 'via' points at the begin/end points of the shuttle ? Another approach could be to set 'avoided' on all but the shuttle's begin/end points ?

__________________
rgds, Wilfried Mestdagh
www.mestdagh.biz
MapPoint coding demo
Order MapPoint 2009 with Routing and User Tools Spreadsheet

Hi Wilfried

I have attempted to force the crossing using your suggested method. I have also attempted force the crossing by avoiding other ferry terminals, but mappoint insists on finding endless other ferry crossings, which makes it appear that it is not a true crossing point in the 2004 version?

Regards
Joe

Hi Joe,

Strange. Maybe a workaround is to calculate 2 routes ? 1 from start point to startpoint of shuttle, and the second from endpoint of shuttle to destination ?

If you do this from out of your own program the it will be not a problem I guess. If you have to do this from out of the standalone executable then you end up with 2 routes of course which may be not very confortable.

__________________
rgds, Wilfried Mestdagh
www.mestdagh.biz
MapPoint coding demo
Order MapPoint 2009 with Routing and User Tools Spreadsheet

I'm not quite picturing it.

JoeBo -- can you post a ptm file as an attachment ?

Could you set a stop at the shuttle location - this forces the route to go through that point.

If one stop doesn't work, try setting multiple stops along the route? (on either end of the Euro shuttle landing).

I gues you'd have to have some login in Access that says when there is a route with one end in the UK and the other in on continental Europe that it places the(se) extra stop(s) at the shuttle.

Eric

Hi All
I have attached a ptm for your information. I have tried all suggested mapping methods with exactly the same result. Mappoint fails to find the euro tunnel terminal using the address so the access point to the tunnel is forced through:
(Set Loc = objMap.GetLocation(51.09362, 1.12151, 100))
All other locations are mapped using:
Set Loc = objMap.FindAddressResults(StreetAddress, City, OtherCity, County, Postcode, Country)(1)
Regards
Joe

Attached Files

Map.zip (40.9 KB, 4 views)

Hi

I have managed to find the solution to this problem; I posted this query on the Microsoft site and was given much the same reply as Wilfred’s suggested method of placing waypoints at the start and end of the tunnel. Having tried this approach with no success I placed a waypoint mid channel (in the sea directly over the crossing) this had the desired result, forcing the use of the channel tunnel crossing. Code below.

'Code tested on form named "FrmRoute"

Dim mpApp As MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route
Dim PP As MapPoint.Pushpin
Dim WP As MapPoint.Waypoint
Dim Loc As MapPoint.Location
Set objMap = Forms.frmRoute.MappointControl3.ActiveMap

Set objRoute = objMap.ActiveRoute
objRoute.Clear

PushPinName = "Collection Address"
StreetAddress = Nz(Forms.frmRoute.Add1)
City = Nz(Forms.frmRoute.Town)
County = Nz(Forms.frmRoute.County)
Postcode = Nz(Forms.frmRoute.PCode)
Country = Nz(Forms.frmRoute.Country)
Set Loc = objMap.FindAddressResults(StreetAddress, City, OtherCity, County, Postcode, Country)(1)
Set PP = objMap.AddPushpin(Loc, PushPinName)
Set WP = objRoute.Waypoints.add(PP)
PushPinName = "Eurotunnel"
Set Loc = objMap.GetLocation(51.03828, 1.48679)
Set PP = objMap.AddPushpin(Loc, PushPinName)
Set WP = objRoute.Waypoints.add(PP)


PushPinName = "Delivery Address"
StreetAddress = Nz(Forms.frmRoute.Add2)
City = Nz(Forms.frmRoute.Town2)
County = Nz(Forms.frmRoute.County2)
Postcode = Nz(Forms.frmRoute.PCode2)
Country = Nz(Forms.frmRoute.Country2)
Set Loc = objMap.FindAddressResults(StreetAddress, City, therCity, County, Postcode, Country)(1)
Set PP = objMap.AddPushpin(Loc, PushPinName)
Set WP = objRoute.Waypoints.add(PP)