from access table to google maps

from ialweb
http://forum.ialweb.it/forum_posts.asp?TID=14993573&PN=8&title=access-interfaccia-mappe-cartografiche-google-maps-earth-e-navigatori


Public Function RichiamaGoogleMaps(Citta, Cap, Indirizzo, NumeroCivico, SiglaLingua)
Dim Link As String
Dim ret As Integer
    Indirizzo = Replace(Nz(Indirizzo & " " & NumeroCivico, ""), ",", " ")
    Citta = Replace(Nz(Citta, ""), ",", " ")
    Cap = Nz(Cap, "")
    Link = "http://maps.google.it/?q="
    Link = Link & Indirizzo & " , " & Cap & " " & Citta & "&hl=" & SiglaLingua
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Function

Public Function RichiamaGoogleMapsLatitudineLogitudine(Latitudine, Logitudine, SiglaLingua)
Dim Link As String
Dim ret As Integer
    Latitudine = Nz(Latitudine, "")
    Logitudine = Nz(Logitudine, "")
    Link = "http://maps.google.it/?q="
    Link = Link & Latitudine & " , " & Logitudine & "&hl=" & SiglaLingua
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Function