looking to modify google maps window within an access form. Currently ave a map with location info, interested in the left side only location info as i do not need map. Hoping someone has an idea, I've upload screenshot (blue is what I want to eliminate) and access file along with code. Thanks in advance.
Code:
Private Sub Form_Current()
'Created by Helen Feddema 10-Mar-2010
'Last modified by Helen Feddema 10-Mar-2010
On Error GoTo ErrorHandler
'Create a Street Address variable with spaces between words
'replaced by Plus signs
strStreetAddress = Replace(Nz(Me![txtStreetAddress].Value), " ", "+")
Debug.Print "Street address for Google URL: " & strStreetAddress
'Create a Whole Address variable with address components separated
'by Plus signs
strWholeAddress = strStreetAddress _
& "+" & Replace(Nz(Me![txtCity].Value), " ", "+") _
& "+" & Nz(Me![txtStateOrProvince].Value) _
& "+" & Nz(Me![txtPostalCode].Value)
Debug.Print "Whole address for Google URL: " & strWholeAddress
'Create Google Map URL by sandwiching Whole Address variable between
'strings of Google URL code
strGoogleMapURL = _
"http://maps.google.com/maps?q=" & strWholeAddress _
' i know the following line needs code to deactivate right side of of map window
& "&iwloc=A &hl=en"
Debug.Print "Google URL: " & strGoogleMapURL
Set appBrowser = Me![ocxWebBrowser]
Me![ocxWebBrowser].Navigate strGoogleMapURL
ErrorHandlerExit:
Set appBrowser = Nothing
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number _
& " in Form_Current procedure; " _
& "Description: " & Err.Description
Resume ErrorHandlerExit
End Sub