Access e google maps

di il
10 risposte

Access e google maps

Salve a tutti, vi porgo un problema in merito alla funzione per visualizzare un indirizzo su google maps da vba access 2007.
Nell'applicazione che ho realizzato funziona correttamente, però se la uso con i nomi di paesi esteri con caratteri strani tipo "Nixhütter Weg" non funziona.
Durante il debug l'indirizzo viene passato correttamente alla variabile, ma quando si apre google maps tenta di trovare "Nixh?tter Weg".
Sapete indicarmi dove può essere il problema?
Grazie.
Di seguito ti mostro il codice (ma ripeto che da debug la ü viene riconosciuta correttamente).

Dim mioform As Form
Dim Via As String
Dim civico As String
Dim Cap As String
Dim Provincia As String
Dim Nazione As String
Dim citta As String
Set mioform = Forms![msc_nuovo_contatto]
Via = Forms![msc_nuovo_contatto]!Via
civico = Forms![msc_nuovo_contatto]![numero civico]
Cap = Forms![msc_nuovo_contatto]!Cap
Provincia = Forms![msc_nuovo_contatto]!Provincia
Nazione = Forms![msc_nuovo_contatto]!Nazione
citta = Forms![msc_nuovo_contatto]![Città]

Dim strLinkURL As String ' indirizzo da visualizzare in Google Maps
Dim strPath As String ' indirizzo della pagina di Google Maps
Dim strAddr() As String ' variabile array
Dim i As Integer ' contatore
' indirizzo di Google Maps
strPath = "http://maps.google.com/maps?"
' indirizzo da localizzare
strLinkURL = Via & " " & _
civico & " " & citta & " " & _
Cap & " " & Provincia & " " & _
Nazione
' assegno alla variabile array l'indirizzo
strAddr = Split(strLinkURL, " ", , vbTextCompare)
strLinkURL = ""
For i = LBound(strAddr()) To UBound(strAddr())
strLinkURL = strLinkURL & strAddr(i) & "+"
Next i
' tolgo il + finale
strLinkURL = Left(strLinkURL, Len(strLinkURL) - 1)
mioform.localizza.HyperlinkAddress = strPath & "q=" & strLinkURL

10 Risposte

Devi accedere o registrarti per scrivere nel forum
10 risposte