km entre dos puntos geograficos
Publicado por jose (830 intervenciones) el 30/06/2014 10:22:18
Se que ésto es complejo pero ayudaría mucho en las aplicaciones.
Se trata de saber los km entre dos localidades .
El procedimiento sería enviar la dirección origen y la destino al alguna pagina web como via michelin o google maps y recoger de éstas los km calculados .
Alguien tiene alguna pista de como hacerlo.
La utilidad es evidente como por ejemplo planificar una ruta de distribución, de visitas a clientes , de servicios realizados por los trabajadores
Hasta ahora he conseguido ver la direcciones de los clientes en google map
de la siguiente forma :
1 . incluir la referencia MICROSOFT INTERNETCONTROLS
2.- en el evento al activar el registro (current) ponemos
Private Sub Form_Current()
Dim MiURL As String
MiURL = "www.google.com/maps?q=" & Me.[DOMICILIO] & ", " & Me.[C-POSTAL] & ", " & Me.[LOCALIDAD] & ", " & Me.[PAIS]
Me.WebBrowser8.Navigate MiURL
End Sub
3.- en el formulario añadimos el objeto WebBrowser8 con el nombre de WebBrowser8
Pero hasta ahi he llegado , por ello si alguien tiene alguna pista sería bien recibida, y gracias anticipadas.
Se trata de saber los km entre dos localidades .
El procedimiento sería enviar la dirección origen y la destino al alguna pagina web como via michelin o google maps y recoger de éstas los km calculados .
Alguien tiene alguna pista de como hacerlo.
La utilidad es evidente como por ejemplo planificar una ruta de distribución, de visitas a clientes , de servicios realizados por los trabajadores
Hasta ahora he conseguido ver la direcciones de los clientes en google map
de la siguiente forma :
1 . incluir la referencia MICROSOFT INTERNETCONTROLS
2.- en el evento al activar el registro (current) ponemos
Private Sub Form_Current()
Dim MiURL As String
MiURL = "www.google.com/maps?q=" & Me.[DOMICILIO] & ", " & Me.[C-POSTAL] & ", " & Me.[LOCALIDAD] & ", " & Me.[PAIS]
Me.WebBrowser8.Navigate MiURL
End Sub
3.- en el formulario añadimos el objeto WebBrowser8 con el nombre de WebBrowser8
Pero hasta ahi he llegado , por ello si alguien tiene alguna pista sería bien recibida, y gracias anticipadas.
Valora esta pregunta
0