Creating a button to go to mapquest and auto fill in the address i

E

Eere

Hello,

I'm trying to create a button in access 2007 that will
a) open maps.google.com (this part i can get no problem)
b) automatically enter the address information from the record.

I think it should be something like:
Private Sub Strip_Map_Click()
On Error GoTo Err_Strip_Map_Click

Dim stAddress As String
Dim stCity As String
Dim stState As String
Dim stZip As String
Dim stFullAddress As String

stAddress = [ADDRESS]
stCity = [CITY]
stState = [STATE]
stZip = [ZIP]

Access.FollowHyperlink "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) & "&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Debug.Print "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) & "&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Exit_Strip_Map_Click:
Exit Sub

Err_Strip_Map_Click:
MsgBox Err.Description
Resume Exit_Strip_Map_Click

End Sub

But obviously it isn't working properly. Anyone have any ideas?

Thank you!
 
D

Douglas J. Steele

What error are you encountering?

Have you created a function named URLEncode (as I don't believe there's such
a function in Access)?
 
E

Eere

Actually the error I'm getting is about the URLEncode.

Compile Error:
Sub or Function not defined.

With URLEncode highlighted.

I originally got this code from a different post on these forums that was
made back in 2005, so I may be going in the completely wrong direction now.

Douglas J. Steele said:
What error are you encountering?

Have you created a function named URLEncode (as I don't believe there's such
a function in Access)?

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Eere said:
Hello,

I'm trying to create a button in access 2007 that will
a) open maps.google.com (this part i can get no problem)
b) automatically enter the address information from the record.

I think it should be something like:
Private Sub Strip_Map_Click()
On Error GoTo Err_Strip_Map_Click

Dim stAddress As String
Dim stCity As String
Dim stState As String
Dim stZip As String
Dim stFullAddress As String

stAddress = [ADDRESS]
stCity = [CITY]
stState = [STATE]
stZip = [ZIP]

Access.FollowHyperlink "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) & "&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Debug.Print "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) & "&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Exit_Strip_Map_Click:
Exit Sub

Err_Strip_Map_Click:
MsgBox Err.Description
Resume Exit_Strip_Map_Click

End Sub

But obviously it isn't working properly. Anyone have any ideas?

Thank you!
Click to expand...
Click to expand...
 
D

Douglas J. Steele

You're going to need to find out what URLEncode does, and code that function
into your application.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Eere said:
Actually the error I'm getting is about the URLEncode.

Compile Error:
Sub or Function not defined.

With URLEncode highlighted.

I originally got this code from a different post on these forums that was
made back in 2005, so I may be going in the completely wrong direction
now.

Douglas J. Steele said:
What error are you encountering?

Have you created a function named URLEncode (as I don't believe there's
such
a function in Access)?

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Eere said:
Hello,

I'm trying to create a button in access 2007 that will
a) open maps.google.com (this part i can get no problem)
b) automatically enter the address information from the record.

I think it should be something like:
Private Sub Strip_Map_Click()
On Error GoTo Err_Strip_Map_Click

Dim stAddress As String
Dim stCity As String
Dim stState As String
Dim stZip As String
Dim stFullAddress As String

stAddress = [ADDRESS]
stCity = [CITY]
stState = [STATE]
stZip = [ZIP]

Access.FollowHyperlink "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) &
"&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Debug.Print "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) &
"&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Exit_Strip_Map_Click:
Exit Sub

Err_Strip_Map_Click:
MsgBox Err.Description
Resume Exit_Strip_Map_Click

End Sub

But obviously it isn't working properly. Anyone have any ideas?

Thank you!
Click to expand...
Click to expand...
Click to expand...
 
P

Pete D.

Go to Google and look at their developer pages. They provide complete help
and even how to call from VBA. Basically you just build a hyperlink from
your fields & concatenation the text and pass it off to the browser.
Douglas J. Steele said:
You're going to need to find out what URLEncode does, and code that
function into your application.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Eere said:
Actually the error I'm getting is about the URLEncode.

Compile Error:
Sub or Function not defined.

With URLEncode highlighted.

I originally got this code from a different post on these forums that was
made back in 2005, so I may be going in the completely wrong direction
now.

Douglas J. Steele said:
What error are you encountering?

Have you created a function named URLEncode (as I don't believe there's
such
a function in Access)?

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)


Hello,

I'm trying to create a button in access 2007 that will
a) open maps.google.com (this part i can get no problem)
b) automatically enter the address information from the record.

I think it should be something like:
Private Sub Strip_Map_Click()
On Error GoTo Err_Strip_Map_Click

Dim stAddress As String
Dim stCity As String
Dim stState As String
Dim stZip As String
Dim stFullAddress As String

stAddress = [ADDRESS]
stCity = [CITY]
stState = [STATE]
stZip = [ZIP]

Access.FollowHyperlink "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) &
"&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Debug.Print "http://www.mapquest.com/maps/map.adp?" &
"formtype=address&searchtype=address" & URLEncode("&address=" &
Trim(Nz([stAddress], "") & "&city=" & Trim(Nz([stCity], "")) &
"&state=" &
Trim(Nz([stState], "")) & "&zip=" & Trim(Nz([stZip], ""))))

Exit_Strip_Map_Click:
Exit Sub

Err_Strip_Map_Click:
MsgBox Err.Description
Resume Exit_Strip_Map_Click

End Sub

But obviously it isn't working properly. Anyone have any ideas?

Thank you!
Click to expand...
Click to expand...
Click to expand...
 
E

Eere

After 30 minutes of searching, I can't seem to find the VBA coding area for
Goggle Maps. I found something about opening Google Earth from excel, but
that isn't really what I'm trying to do here.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

MapQuest directions 0
Google Maps: StartingPoint & Destination, then get results. 2
Mapping Annoyance 0
Combo Box to Fill in Form Fields 7
fax a report to multiple people 0
how can I type a few letters and have it fill in the rest? 1
loop to assign numbers in a table 1
I would like to create a button on the worksheet to work a macro 2

Top