Dim strLinkUrl As String
Dim strPath As String
Dim strAddr() As String
strPath = "http://maps.google.com/maps?q="
strLinkUrl = RTrim(streetnumber.Value) & "+" & RTrim(city.Value) & "+"
& RTrim(state.Value)
strAddr = Split(strLinkUrl, " ", , vbTextCompare)
strLinkUrl = ""
For i = LBound(strAddr()) To UBound(strAddr())
strLinkUrl = strLinkUrl & strAddr(i) & "+"
Next i
strLinkUrl = strPath & Left(strLinkUrl, Len(strLinkUrl) - 1)
Debug.Print strLinkUrl
Me.GoogleMapsLink.HyperlinkAddress = strLinkUrl
End Sub
------------------------------------------------
End------------------------------------------------
Hello Peter:
Thank you very much for replying. I am not a programmer by trade. I
have tried both Me.GoogleMapsLink.Hyperlink.Follow = strLinkUrl and
Me.GoogleMapsLink.HyperlinkAddress.Follow = strLinkUrl. I get no
result. Under the Debug I Tried to compile and get the following
Compile Error.
----
Me.GoogleMapsLink.Hyperlink.Follow = strLinkUrl => >Follow gets
Highlighted and I get Compile Error Dialog box "Expected Function or
Variable"
Me.GoogleMapsLink.HyperlinkAddress.Follow = strLinkUrl =>
HyperlinkAddress gets Highlighted and I get Compile Error Dialog box
"Expected Function or Variable"
----
I am using Access 2007, Any insight........
Ardy
So:
.
.
Me.GoogleMapsLink.HyperlinkAddress = strLinkUrl
Me.GoogleMapsLink.Hyperlink.Follow
Peter
OK This Worked
Me.GoogleMapsLink.HyperlinkAddress = strLinkUrl
it seems that we don't need the .Follow
Thanks for all your help