start MapPoint 2009

[gradykn]

I am a vb coder and have not done hardly any vba. I want to use a MapPoint 2009 module to open MapPoint on my own computer rather that connecting to the internet. The main reason is that the internet is not always accesible to me and I have MapPoint on my laptop.

The current module code is simple:

Function OpenMap(Address, City, State, Zip, Country)

Dim strAddress As String
strAddress = Nz(Address)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(City)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(State)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Zip)
strAddress = strAddress & IIf(strAddress = "", "", ", ") & Nz(Country)

If strAddress = "" Then
MsgBox "There is no address to map."
Else
Application.FollowHyperlink "

http://maps.live.com/default.aspx?where1="

& strAddress
End If
End Function

The function just builds an address string and passes it through the header. How do I open MapPoint locally and pass the address string?

Thanks.

 

[HarleyQuinn]

To open MapPoint locally you can use the Shell command.

I've got no MapPoint documentation in front of me but you may be able to pass command line aparemters to it via Shell when opening it (just a guess though but maybe something to look into).

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.