VBA ACCESS - JAVASCRIPT (GOOGLE MAPS API)

lunedì 28 marzo 2011 - 20.21

NILOLEON Profilo | Newbie

Ciao
qualkuno puo aiutarmi?
Io vorrei implementare una maschera in Access (utilizzando VBA) dove scrivendo 3 vie e relative citta in 3 textbox fa caricare in una finestra sempre sulla form il percorso.

Io ho preparato la maschera e ho aggiunto una finestra del browser internet explorer tramite un controllo activeX.
3 Textbox
Poi ho inserito le funzioni in Javascript su una pagina web
Faccio caricare la pagina web dalla finestra sulla form
E ho fatto passare i valori inseriti nelle Textbox tramite il codice VBA

esempio
Me.WebBrowser.Document.parentWindow.execScript("calcRoute()", "", "JavaScript")

la funzione calcRoute caricata nella pagina web la ho scritta in questo modo

function calcRoute(value1,value2,value3) {
var start = value1;
var waypts = value2;
var end = value3;

waypts.push({ location: value2, stopover: true });

var request = {
origin: start,
destination: end,
waypoints: waypts,
travelMode: google.maps.DirectionsTravelMode.DRIVING
};
directionsService.route(request, function(response, status) {
if (status == google.maps.DirectionsStatus.OK) {
directionsDisplay.setDirections(response);
var route = response.routes[0];
}
});

ho messo tre argomenti che gli passo dal VBA ACCESS in questo modo:

Me.WebBrowser.Document.parentWindow.execScript("calcRoute(""" & INDIRIZZO1 & """, """ & INDIRIZZO2 & """, """ & INDIRIZZO3 & """)", "", "JavaScript")

Con solo due argomenti (senza waypoints) la funzione lo fa il percorso però mi servirebbe farlo con tre
Se faccio girare in VBA mi dice il mess (penso di errore JAVASCRIPT):

PROPRIETA O METODI NON SUPPORTATI DALL'OGGETTO
come se non mi supportasse la funzione calcRoute fatta con 3 argomenti ma solo con due
Qualke soluzione???

Grazie
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5