Google Map call

  • Thread starter Thread starter Doug Sanders
  • Start date Start date
D

Doug Sanders

Hi;

Is there a way to call to the Google mapping site through Access?
(Particularly Access '97)

Thanks,

Doug Sanders
 
This almost works, but I wasn't specific enough.

I want to pass address / location information directly from Access to the
Google mapping program.

Here's what I use for Microsoft's mapping program


Public Function Get_Internet_Map(a1, a2, a3, a4) As String
DoCmd.Hourglass True
Dim Get_URL As String
Dim aa As String
Dim ab As String
Dim ac As String
Dim ad As String
Dim MyPos As Integer

'Me![Command297].[Hyperlink Address] =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=35+State+Street&c=Chicago&s=IL&p=60611&i=United+States+of+America&HELPLCID=
1033"
'Call Get_Map(Last_Name, Bus_City, Bus_State, Bus_Zip)
'Here we process the a1 variable
On Error Resume Next
MyPos = InStr(1, a1, " ")
aa = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ab = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ac = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ad = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))


Build_URL:
a4 = Left(a4, 5) 'Zip code can only be 5 characters long
Get_URL =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=" & aa & "+" & ab & "+" & ac & "+" & ad & "&c=" & a2 & "&s=" & a3 & "&p=" &
a4 & "&i=United+States+of+America&HELPLCID=1033"

Application.FollowHyperlink Get_URL, , False



Any help would be appreciated.

Thanks,
Doug Sanders
 
Sorry, Doug, you are over my head on this one. I have no experience doing
this at all.

Doug Sanders said:
This almost works, but I wasn't specific enough.

I want to pass address / location information directly from Access to the
Google mapping program.

Here's what I use for Microsoft's mapping program


Public Function Get_Internet_Map(a1, a2, a3, a4) As String
DoCmd.Hourglass True
Dim Get_URL As String
Dim aa As String
Dim ab As String
Dim ac As String
Dim ad As String
Dim MyPos As Integer

'Me![Command297].[Hyperlink Address] =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=35+State+Street&c=Chicago&s=IL&p=60611&i=United+States+of+America&HELPLCID=
1033"
'Call Get_Map(Last_Name, Bus_City, Bus_State, Bus_Zip)
'Here we process the a1 variable
On Error Resume Next
MyPos = InStr(1, a1, " ")
aa = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ab = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ac = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ad = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))


Build_URL:
a4 = Left(a4, 5) 'Zip code can only be 5 characters long
Get_URL =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=" & aa & "+" & ab & "+" & ac & "+" & ad & "&c=" & a2 & "&s=" & a3 & "&p=" &
a4 & "&i=United+States+of+America&HELPLCID=1033"

Application.FollowHyperlink Get_URL, , False



Any help would be appreciated.

Thanks,
Doug Sanders





Klatuu said:
Try:
txtUrl = "IEXPLORE.exe " & chr(34) & "http://www.google.com/" & Chr(34)
Shell(txtUrl)
Click to expand...
Click to expand...
 
Thanks for your interest. Maybe I'll try other groups like 'formscoding'
and ''access.internet'.

Doug




Klatuu said:
Sorry, Doug, you are over my head on this one. I have no experience doing
this at all.

Doug Sanders said:
This almost works, but I wasn't specific enough.

I want to pass address / location information directly from Access to the
Google mapping program.

Here's what I use for Microsoft's mapping program


Public Function Get_Internet_Map(a1, a2, a3, a4) As String
DoCmd.Hourglass True
Dim Get_URL As String
Dim aa As String
Dim ab As String
Dim ac As String
Dim ad As String
Dim MyPos As Integer

'Me![Command297].[Hyperlink Address] =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=35+State+Street&c=Chicago&s=IL&p=60611&i=United+States+of+America&HELPLCID=
1033"
'Call Get_Map(Last_Name, Bus_City, Bus_State, Bus_Zip)
'Here we process the a1 variable
On Error Resume Next
MyPos = InStr(1, a1, " ")
aa = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ab = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ac = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))
MyPos = InStr(1, a1, " ")
If MyPos = 0 Then GoTo Build_URL
ad = Left(a1, MyPos - 1)
a1 = Right(a1, (Len(a1) - MyPos))


Build_URL:
a4 = Left(a4, 5) 'Zip code can only be 5 characters long
Get_URL =
"http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a
=" & aa & "+" & ab & "+" & ac & "+" & ad & "&c=" & a2 & "&s=" & a3 & "&p=" &
a4 & "&i=United+States+of+America&HELPLCID=1033"

Application.FollowHyperlink Get_URL, , False



Any help would be appreciated.

Thanks,
Doug Sanders





Klatuu said:
Try:
txtUrl = "IEXPLORE.exe " & chr(34) & "http://www.google.com/" & Chr(34)
Shell(txtUrl)

:

Hi;

Is there a way to call to the Google mapping site through Access?
(Particularly Access '97)

Thanks,

Doug Sanders
Click to expand...
Click to expand...
Click to expand...
 
Back
Top