Aprire Google Maps all'indirizzo riportato in textbox

Question

Buongiorno a tutta la community.

In una tabella ho un campo in cui viene scritto un indirizzo internet di Google Maps.

Avrei la necessità di aprire, tramite un pulsante presente in una maschera popup,

il browser predefinito all'indirizzo riportato in quel campo.

Per la precisione nella tabella "tblCartelloni" ho il campo "Streetview" in cui è riportato

l'indirizzo internet da raggiungere. Nella maschera "msFotoCartelloni" ho il cmdButton "Streetview"

tramite il quale vorrei aprire il browser predefinito all'indirizzo riportato in tabella.

Scusate la ripetizione ma cercavo di essere più chiaro possibile...

Potreste aiutarmi gentilmente?

Answer 1

Ciao Fausto Leggio,

se ho capito correttamente allora ti basta l'ultima riga del codice che ti ho mostrato:

---

Private Sub cmdButton_Click()

    If Len(Me!Streetview.Value & "") > 0 Then

        Me!cmdButton.HyperlinkAddress = Me!Streetview.value

    End If

End Sub

---

David

Answer 2

David ti ringrazio, funziona alla perfezione!! A buon rendere... :)

Fausto.

Answer 3

Buonasera David, intanto ti ringrazio per la risposta. Al momento io ho già un metodo simile a quello

che tu mi hai suggerito ma non risolve il mio problema. Questo perchè alcuni luoghi non sono

indirizzi bene precisi, non hanno una via o un numero civico che permetta di identificare bene il luogo.

Ecco perchè, avendone già l'indirizzo internet nel campo della tabella, vorrei soltanto che, con il pulsantepresente nella maschera, si potesse "leggere" il contenuto della textbox e aprire il browser al relativo

indirizzo.

Di seguito ti posto un'immagine della maschera per darti un'idea...

Riuscendo a far leggere l'indirizzo della textbox "Streetview" avrei la certezza di trovare il luogo in google maps...

Spero di aver reso l'idea...

Answer 4

Ciao Fausto Leggio,

nell'indirizzo è compresa la città? O è in un campo separato?

L'esempio che segue ipotizza che sulla tua maschera msFotoCartelloni ci siano due caselle di testo separate, una per la città e una per l'indirizzo. Nell'evento click del tuo pulsante cmdButton scrivi:

---

Private Sub cmdButton_Click()

    Dim sLinkUrl As String

    Dim sPath As String

    Dim sAddr() As String

    Dim i As Integer

    sPath = "http://maps.google.it/maps?q="

    sLinkUrl = Me.Controls("txtCitta").Value _

        & "+" & Replace(Me.Controls("txtIndirizzo").Value, ",", "") _

        & "+Italia"

    sAddr = Split(strLinkUrl, " ", , vbTextCompare)

    sLinkUrl = vbNullString

    For i = LBound(sAddr()) To UBound(sAddr())

        sLinkUrl = sLinkUrl & sAddr(i) & "+"

    Next i

    sLinkUrl = sPath & Left(sLinkUrl, Len(sLinkUrl) - 1)

    Me.Controls("cmdButton").HyperlinkAddress = sLinkUrl

End Sub

---

David

p.s.: nell'esempio la nazione è fissa ma seguendo il filo logico la puoi rendere ovviamente variabile