** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Access 2016 y Google Maps
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess 2016 y Google Maps

 Responder Responder
Autor
Mensaje
thanfort Ver desplegable
Nuevo
Nuevo


Unido: 12/Mayo/2013
Localización: España
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Access 2016 y Google Maps
    Enviado: 29/Diciembre/2019 a las 13:40
Saludos

Aunque el tema pueda ser recurrente no encuentro ningun ejemplo ni tutorial lo bastante bien explicado para mi nivel, para crear una aplicación en Access que me sitúe en un mapa de Google Maps todas las direcciones de unos clientes a la vez. Que este mapa se abra en un form de Access i que pueda su resultado pueda ser impreso en un informe.
¿Alguien sabe donde puedo encontrar algo parecido o orientarme en el tema?

Saludos, felices fiestas y gracias.
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 29/Diciembre/2019 a las 19:19
Hola ,

Prueba con el siguiente código y adaptalo según tus necesidades

Poner en un MODULO standard
Option Explicit

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long


Private Function funTest()

Rem Localiza 1 direccion
    If funGoogleMaps("Puerta del sol 1", "Madrid", "", "Spain") = False Then
        MsgBox "Error No ha sido posible visualizar el mapa", vbExclamation, "Google Maps"
    End If

    Rem localiza 1 ciudad
    If funGoogleMaps("", "Madrid", "", "Spain") = False Then
        MsgBox "Error No ha sido posible visualizar el mapa", vbExclamation, "Google Maps"
    End If

    Rem Localiza 1 pais
    If funGoogleMaps("", "", "", "Spain") = False Then
        MsgBox "Error No ha sido posible visualizar el mapa", vbExclamation, "Google Maps"
    End If

End Function


Public Function funGoogleMaps(PonDireccion As Variant, PonCiudad As Variant, PonCodigoPostal As Variant, PonPais As Variant) As Boolean
    Dim strURL As String
    Dim objIE As Object

    On Error GoTo Err_Local
    Access.Application.DoCmd.Hourglass True

    If funConexionInternetGoogle = False Then
        MsgBox "Tu PC No esta conectado a Internet" & vbNewLine & _
               "Deberias conectarlo para continuar", vbExclamation, "Conexion Internet"
        GoTo Exit_Local
    End If

    strURL = "http://maps.google.com/maps?f=q&hl=en&q=" & PonDireccion & "+" & PonCiudad & "+" & PonCodigoPostal & "+" & PonPais

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate strURL
    objIE.Visible = True

    DoCmd.Minimize ' << Opcional
    Application.DoCmd.RunCommand acCmdAppMinimize ' << Opcional

Close_Local:
    Set objIE = Nothing
    funGoogleMaps = True

Exit_Local:
    Access.Application.DoCmd.Hourglass False
    Exit Function


Err_Local:
    funGoogleMaps = False
    MsgBox Err.Description, vbCritical, "Error N°:  " & Err.Number

    Resume Exit_Local

End Function


Public Function funConexionInternetGoogle() As Boolean
    On Error GoTo Err_Local

    Const cUrl = "http://www.google.com/"

    DoEvents
    funConexionInternetGoogle = InternetCheckConnection(cUrl, &H1, 0&)

    If funConexionInternetGoogle = False Then
        funConexionInternetGoogle = False
    Else
        funConexionInternetGoogle = True
    End If


Exit_Local:
    Exit Function

Err_Local:
    MsgBox Err.Description, vbCritical, Err.Number
    Resume Exit_Local

End Function



Arriba
thanfort Ver desplegable
Nuevo
Nuevo


Unido: 12/Mayo/2013
Localización: España
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 30/Diciembre/2019 a las 14:36
Saludos

Lo pruebo y comento a ver....

Gracias
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 30/Diciembre/2019 a las 18:17
Mejor modifica la siguiente linea:

Donde pone
Const cUrl = "http://www.google.com/"

Debería poner

Const cUrl = "https://www.google.com/"
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable