Visualizzare Mappa in una Webcontrol

di il
3 risposte

Visualizzare Mappa in una Webcontrol

Buongiorno vorrei sottoporre un altro problema.

Nella mia tabella clienti (tb_clienti) ho i campi indirizzo, città, provincia,nazione.

Ho trovato su internet un codice VBA che mi permette dai record di aprire (tramite pulsante cmd_mappa) il link su Google Maps per vedere la mappa:
Private Sub cmd_mappa_Click()
Dim strLinkURL As String
Dim strPath As String
Dim strAddr() As String
Dim i As Integer
strPath = "http://maps.google.com/maps?"
strLinkURL = Me.txtindirizzo & " " & Me.txtcittà & " " & Me.txtcap & " " & Me.txtprovincia & " " & Me.txtnazione
strAddr = Split(strLinkURL, " ", , vbTextCompare)
strLinkURL = ""
For i = LBound(strAddr()) To UBound(strAddr())
 strLinkURL = strLinkURL & strAddr(i) & "+"
 Next i
  strLinkURL = Left(strLinkURL, Len(strLinkURL) - 1)
  Me.cmd_mappa.HyperlinkAddress = strPath & "q=" & strLinkURL
 End Sub
Vorrei visualizzare la pagina anziché aprendo il link esterno su una form. Qualcuno mi sa aiutare?

Grazie

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte