I currently have an Access database with staff names and addresses and have set up a function whereby clicking on a map icon next to the staff member's name gives me a Google map showing the route from their house to the office (this is for disaster team call outs so that I can see if they are going to be affected by flooding, tornadoes etc.)
I am transferring all this data over to a SharePoint site so that more people can see the data and each individual is responsible for keeping their own records up to date.
Is there a way to create a new column in my contacts list to have the same functionality?
For reference, here is the code that is executed when the icon is clicked:
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
Application.FollowHyperlink "http://maps.google.com/maps?f=d&source=s_d&saddr=" & strAddress & "&daddr= ***My office address goes here ***"
End If
End Function