Access 2016 y Google Maps |
Responder |
Autor | |
thanfort
Nuevo Unido: 12/Mayo/2013 Localización: España Estado: Sin conexión Puntos: 3 |
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. |
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
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 |
|
thanfort
Nuevo Unido: 12/Mayo/2013 Localización: España Estado: Sin conexión Puntos: 3 |
Enviado: 30/Diciembre/2019 a las 14:36 |
Saludos
Lo pruebo y comento a ver.... Gracias |
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
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/" |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |