I wish I knew
New member
- Local time
- Yesterday, 20:49
- Joined
- Nov 29, 2006
- Messages
- 2
Hi all
I am using Access 2003 and Google Chrome on my new(ish) laptop.
I have 2 forms - one collects postcodes from the user the other displays the results on google maps. This has worked ok on MS explorer but when I try to use this on my laptop i get "Script error on the Goolge map" I have attached a screen shot and teh code. Please can you help?
or if you have code that will help??
the code i am using is:::
===================================================
Private Sub GoogleMaps_Click()
DoCmd.Hourglass (True)
'I'm not allowed to post links so have added spaces in the next line...
MyGoogleMapURL = "http : / / maps . google . com / maps ? q = from : "
MyGoogleMapURL = MyGoogleMapURL & Me.[ClientPickupList].Column(2, Goog1)
For Goog1 = 1 To Me.[ClientPickupList].ListCount - 1
MyGoogleMapURL = MyGoogleMapURL & " to: " & Me.[ClientPickupList].Column(2, Goog1)
' & ", " & Me.[ClientPickupList].Column(4, Goog1)
Next
MyGoogleMapURL = MyGoogleMapURL & "&iwloc=A&hl=en"
DoCmd.OpenForm "frmGoogleMap", acNormal
Forms![frmGoogleMap].wbbWebsite.Navigate URL:=MyGoogleMapURL
DoCmd.Hourglass (False)
End Sub
===================================================
Thanks Colin
I am using Access 2003 and Google Chrome on my new(ish) laptop.
I have 2 forms - one collects postcodes from the user the other displays the results on google maps. This has worked ok on MS explorer but when I try to use this on my laptop i get "Script error on the Goolge map" I have attached a screen shot and teh code. Please can you help?
or if you have code that will help??
the code i am using is:::
===================================================
Private Sub GoogleMaps_Click()
DoCmd.Hourglass (True)
'I'm not allowed to post links so have added spaces in the next line...
MyGoogleMapURL = "http : / / maps . google . com / maps ? q = from : "
MyGoogleMapURL = MyGoogleMapURL & Me.[ClientPickupList].Column(2, Goog1)
For Goog1 = 1 To Me.[ClientPickupList].ListCount - 1
MyGoogleMapURL = MyGoogleMapURL & " to: " & Me.[ClientPickupList].Column(2, Goog1)
' & ", " & Me.[ClientPickupList].Column(4, Goog1)
Next
MyGoogleMapURL = MyGoogleMapURL & "&iwloc=A&hl=en"
DoCmd.OpenForm "frmGoogleMap", acNormal
Forms![frmGoogleMap].wbbWebsite.Navigate URL:=MyGoogleMapURL
DoCmd.Hourglass (False)
End Sub
===================================================
Thanks Colin