Newsgroup: it.comp.appl.access
Titolo: Aprire Google Maps con indirizzo prelevato da mdb

Ho visto un sw scritto credo in VB in cui premendo un pulsante si apre
Google Maps posizionandosi direttamente sull'indirizzo prelevato
dall'mdb. In pratica su evento click pulsante viene prelevato
l'indirizzo del fornitore/cliente e viene visualizzata la mappa
dell'indirizzo dello stesso. Una funzione credo molto utile.
E' possibile fare quanto sopra anche con VBA ?
Grazie.

 ha scritto nel messaggio 
news:1165413333....@l12g2000cwl.googlegroups.com...

Praticamente vorresti interrogare google maps inviandogli la stringa?
http://www.cached.it/blog/google-maps/2006/10/15/usare-le-google-maps.
..
Oppure ti dai all'API-coltura (
http://www.google.it/apis/maps/).
..
Ciao.
-- 
Sergio MAZZA 


C'č un esempio gią pronto fatto con libero
su accessgroup
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa
 

Sergio MAZZA ha scritto:

Ma in 
http://www.google.it/apis/maps/
) spiega come ottenere un
collegamento dal proprio sito web. Io invece vorrei aprire Google Map e
posizionarmi sull'imdirizzo direttamente da un gestionale scritto in
AccessXP in VBA.
Potresti spiegarmi meglio come fare ?

 
www.donkarl.com/it/cisa
Questo esempio non sono riuscito a trovarlo su nessuno dei sue siti. Mi
potresti dare maggiori dettagli ?

 Mi potresti dare maggiori dettagli ?
www.accessgroup.it
  sez Access e web
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

lismax ha scritto:

Ciao,
Se puo' esserti utile prova con questo codice VBA in Access postato
tempo fa in questo NG.
Io lo uso, ho anche inserito tutti i comuni, CAP, CF, PV nelle varie
tabelle.
E funziona.
If Me!Indirizzo <> "" Then
Dim str_link As Variant
Dim str_indirizzo As Variant
Dim str_citta As Variant
Dim str_cap As Variant
Dim scratch As Variant
...
'--str_link =
"
http://www.viamichelin.it/viamichelin/ita/dyn/controller/mapPerformPage?strAddress=
"
str_link =
"
http://tuttocitta.libero.it/tcolnew/index_libero.html#sez=1015&com=
"
str_indirizzo = Nz(Me!Indirizzo, "")
str_citta = Nz(Me!Citta, "")
'str_cap = Nz(Me!CAP, "")
str_link = str_link & str_citta
'str_link = str_link & "&zipCode=" & str_cap
'--str_link = str_link & "&street=" & str_indirizzo
str_link = str_link & "&ind=" & str_indirizzo
str_link = Replace(str_link, ",", " ")
Dim oHttp As Object
    Dim txtrequeststring As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtrequeststring = str_link
    oHttp.Open "GET", txtrequeststring, False
    oHttp.send
    scratch = oHttp.responsetext
..
  Me!WebBrowser2.Navigate txtrequeststring
Debug.Print txtrequeststring
Else
MsgBox "Manca il campo Indirizzo", vbCritical, "Dati Indirizzo"
End If

 Potresti spiegarmi meglio come fare ?
Prova con questo codice:
'-->
'--> inserire i riferimenti alla libreria
'--> Microsoft HTML Object Library
'-->
On Error GoTo scriviSuInternetExplorer_err
Dim oApp As InternetExplorer
Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 "
http://maps.google.it/maps
"
Do
    DoEvents
    If oApp.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
oApp.Visible = True
oApp.Document.Forms("q_form").item("q").Value = "via pizza&fichi, 12 roma"
oApp.Document.Forms("q_form").item("q_sub").Focus
oApp.Document.Forms("q_form").item("q_sub").Click
exit sub
scriviSuInternetExplorer_err:
    oApp.Quit
    Set oApp = Nothing
    MsgBox Application.AccessError(Err.Number) & ", " & Err.Number
'--
Con tutti i limiti del caso...
Ciao.
-- 
Sergio MAZZA 

 Potresti spiegarmi meglio come fare ?
Oppure puoi passargli i parametri nell'indirizzo http; considera questo 
esempio di link per cercare "Via di Selva Candida, 1 Rome" (quello proposto 
dal sito):
http://maps.google.it/maps?ie=UTF8&lr=lang_en|lang_it|lang_de&hl=it&q=Via+di+Selva+Candida,+1+Rome&f=q&sampleq=1
quindi spacchettando le informazioni le applichi al codice:
...
oApp.Navigate2 "
http://maps.google.it/maps
"
e rimuovi le righe:
oApp.Document.Forms("q_form").item("q").Value = "via pizza&fichi, 12 roma"
oApp.Document.Forms("q_form").item("q_sub").Focus
oApp.Document.Forms("q_form").item("q_sub").Click
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Ti ringrazio. Tutto OK.

Sergio MAZZA ha scritto:

Dimenticavo di dirti che con il riferimento Microsoft HTML Object
Library non mi funziona (non riconosce l'applicazione) mentre con il
riferimento Microsoft Internet Control è tutto OK.
Sai spiegartelo ?