Collegare indirizzo direttamente a Google Maps

[Dino]

Ciao a tutti.scusate la banlità ma volevo sapere come si poteva far
puntare direttamente il link di Google Maps ad un indirizzo specfico
prelevando i dati da un DB. Esempio:
Nel record n°1 del form masc1 ho nel campo "nome" Rossi Giovanni" nel
campo "indirizzo" via delle Grazie,12 e nel campo "località"
Milano.Cliccando sul campo " GoogleM".(con proprietà coll. ipertest)
mi apre ovviamente solo la Home page di Google Maps.Io invece come
detto sopra vorrei che puntasse all'indirizzo specifico.
Grazie in anticipo
Dino

[sv]

Dino ha scritto:

> Ciao a tutti.scusate la banlit� ma volevo sapere come si poteva far

> puntare direttamente il link di Google Maps ad un indirizzo specfico
> prelevando i dati da un DB. Esempio:
> Nel record n�1 del form masc1 ho nel campo "nome" Rossi Giovanni" nel

> campo "indirizzo" via delle Grazie,12 e nel campo "localit�"
> Milano.Cliccando sul campo " GoogleM".(con propriet� coll. ipertest)

> mi apre ovviamente solo la Home page di Google Maps.Io invece come
> detto sopra vorrei che puntasse all'indirizzo specifico.
> Grazie in anticipo
> Dino

Sotto l'evento click di un pulsante inserisci questo codice:

Dim str_link As Variant
Dim str_indirizzo As Variant
Dim str_citta As Variant
Dim str_cap As Variant
Dim ret As Integer
str_indirizzo = Replace(Nz(Me!INDIRIZ, ""), ",", " ")
str_citta = Replace(Nz(Me!CITTA, ""), ",", " ")
str_cap = Nz(Me!CAP, "")
str_link = "http://maps.google.it/?q="
str_link = str_link & str_indirizzo & " , " & str_cap & " " & str_citta
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (str_link))


Adatta i nome campi.

--
sv

--


questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

[pfmarro]

mi permetto di completare il tutto

Dim str_link As Variant
Dim str_indirizzo As Variant
Dim str_citta As Variant
Dim str_cap As Variant
Dim ret As Integer

Dim sIndirizzo As String
Dim sCitta As String
Dim sCap As String

sIndirizzo = "Via dei giradini 23"
sCitta = "MILANO"
sCap = "20121"

' str_indirizzo = Replace(Nz(Me!INDIRIZ, ""), ",", " ")

' str_citta = Replace(Nz(Me!CITTA, ""), ",", " ")
' str_cap = Nz(Me!CAP, "")

str_indirizzo = SpaceToPlus(Replace(Nz(sIndirizzo, ""), ",", " "))
str_citta = SpaceToPlus(Replace(Nz(sCitta, ""), ",", " "))
str_cap = SpaceToPlus(Nz(sCap, ""))

str_link = "http://maps.google.it/?q="
str_link = str_link & str_indirizzo & " , " & str_cap & " " & str_citta
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (str_link))

aggiungento 2 funzioni da mettere in un modulo

Public Function SpaceToPlus(sString As String) As String
Dim nFirstSpace As Integer ' primo spazio

nFirstSpace = InStr(1, sString, " ")

Do While nFirstSpace > 0
sString = Mid(sString, 1, nFirstSpace - 1) & "+" & Mid(sString, nFirstSpace + 1)
nFirstSpace = InStr(1, sString, " ")
Loop
SpaceToPlus = noDoubleLetters(sString, "+")
End Function

Public Function noDoubleLetters(sString As String, sDouble As String) As String
Dim nDoubleLetter As Integer ' posizione doppia

nDoubleLetter = InStr(1, sString, sDouble & sDouble)

Do While nDoubleLetter > 0
sString = Replace(sString, sDouble & sDouble, sDouble)
nDoubleLetter = InStr(1, sString, sDouble & sDouble)
Loop

noDoubleLetters = sString
End Function

Il giorno domenica 24 febbraio 2013 20:08:22 UTC+1, sv ha scritto:
> Dino ha scritto:
>
>
>

> > Ciao a tutti.scusate la banlit� ma volevo sapere come si poteva far

>
> > puntare direttamente il link di Google Maps ad un indirizzo specfico
>
> > prelevando i dati da un DB. Esempio:
>

> > Nel record n�1 del form masc1 ho nel campo "nome" Rossi Giovanni" nel
>
> > campo "indirizzo" via delle Grazie,12 e nel campo "localit�"
>
> > Milano.Cliccando sul campo " GoogleM".(con propriet� coll. ipertest)

[Dino]

Grazie mille per la risposta.Provo e ti faccio sapere

[Dino]

> > questo articolo e` stato inviato via web dal servizio gratuitohttp://www.newsland.it/newssegnalagli abusi ad ab...@newsland.it

>
> Grazie mille per la risposta.Provo e ti faccio sapere

Perfetto "raga" funziona alla grande con entrambe le soluzioni.
Siete mitici!!!!!!Come sempre...
Dino