Hello and thank you for this forum
I have an access database where I can open a Bing Map from an address located in text boxes (street Address, City, State, zip, CountryorRegion.
My question is how could I revise this code to open a Bing Map or Google Map from Lat/Long Coordinates located in a textbox?
Function OpenMap(Address, City, State, Zip, CountryOrRegion)
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(CountryOrRegion)
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
I have an access database where I can open a Bing Map from an address located in text boxes (street Address, City, State, zip, CountryorRegion.
My question is how could I revise this code to open a Bing Map or Google Map from Lat/Long Coordinates located in a textbox?
Function OpenMap(Address, City, State, Zip, CountryOrRegion)
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(CountryOrRegion)
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
Last edited: