A
Anne
I created a hyperlink in my database that was working very well. It open
Mapquest to the postal code displayed on an open record. It stopped working
and I suspect Mapquest changed something about there format of the postal
code that is not compactible with my format. This is the code in my
hyperlink.
Private Sub cmdHyperlink_Click()
Dim strPath As String
If Not IsNull(Me.PostalCode) Then
strPath = "http://www.mapquest.com/maps/" & Me.PostalCode & "/"
Me.cmdHyperlink.HyperlinkAddress = strPath
End If
End Sub
I have also tried one for Google Maps and - it opens Google Maps fine but
does not open to the postal code in my record. This is the code that I tried.
Private Sub cmdHyperlinkGoogleMap_Click()
Dim strPath As String
If Not IsNull(Me.PostalCode) Then
strPath = "http://maps.google.ca/maps?hl=en&tab=wl" & Me.PostalCode & "/"
Me.cmdHyperlink.HyperlinkAddress = strPath
End If
End Sub
Any suggestions?
Mapquest to the postal code displayed on an open record. It stopped working
and I suspect Mapquest changed something about there format of the postal
code that is not compactible with my format. This is the code in my
hyperlink.
Private Sub cmdHyperlink_Click()
Dim strPath As String
If Not IsNull(Me.PostalCode) Then
strPath = "http://www.mapquest.com/maps/" & Me.PostalCode & "/"
Me.cmdHyperlink.HyperlinkAddress = strPath
End If
End Sub
I have also tried one for Google Maps and - it opens Google Maps fine but
does not open to the postal code in my record. This is the code that I tried.
Private Sub cmdHyperlinkGoogleMap_Click()
Dim strPath As String
If Not IsNull(Me.PostalCode) Then
strPath = "http://maps.google.ca/maps?hl=en&tab=wl" & Me.PostalCode & "/"
Me.cmdHyperlink.HyperlinkAddress = strPath
End If
End Sub
Any suggestions?