Newsgroup: it.comp.appl.access
Titolo: Associare alla tabella strade una cartina per ogni via

Ciao a tutti. Ho una database contenente una tabella con tutte le vie
della mia provincia e vorrei poter associare ad ogni via la cartina
della zona. Ho iniziato strada per strada a farlo con MapPpoint ma
essendo un lavoro molto lungo mi domandavo se non esistesse un metodo
per fare in modo che un programma di cartografia riuscisse ad
intercettare il nome della strada dalla tabella, mi spiego meglio: é
possibile da una maschera con il nome della via in una casella di
testo (e della provincia se servisse) tramite un tasto far aprire un
programma di cartografia con la cartina della via in questione? In
attesa ringrazio chiunque potra' aiutarmi, ciao ciao


Cioè tu hai messo i dati dentro MapPoint?
Hai provato con Google Map (ci dovrebbe essere un SDK o della API a
quanto ricordo)?


[risposta]
Grazie intanto per la risposta. Con MapPoint ho semplicemente cercato
manualmente delle vie e salvato la cartina come immagine e con
l'oggetto ole li ho inseriti nella tabella. Per quello che riguarda
Google Map ho fatto gia' delle ricerche su internet non trovando nulla
che risolvesse il mio problema ma visto quello che mi hai scitto ci
riprovero'. Sei sicuro comunque che tramite Google Map si possa
intercettare la via da una maschera ( o tabella) senza doverlo
inserire manualmente? Ciao e grazie


[risposta]
Su internet non sono riuscito a trovare quasi nulla qualcuno sa dove
indirizzarmi? Grazie in anticipo ciao ciao

 indirizzarmi? Grazie in anticipo ciao ciao
In una maschera, sotto l'evento Click di un pulsante:
****
Dim str_link As Variant
Dim str_indirizzo As Variant
Dim str_citta As Variant
Dim str_cap As Variant
Dim ret As Integer
    str_indirizzo = Replace(Nz(Me!INDIRIZ, ""), ",", " ")
    str_citta = Replace(Nz(Me!CITTA, ""), ",", " ")
    str_cap = Nz(Me!CAP, "")
    str_link = "
http://maps.google.it/?q=
"
    str_link = str_link & str_indirizzo & " , " & str_cap & " " & str_citta
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (str_link))
****
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Per le API di Google prova a dare un'occhiata qui:
http://code.google.com/intl/it/apis/maps/index.html
Per Mappoint non ho il prodotto installato ora, ma avevo fatto una
routine che calcolava la distanza tra due città e visualizzavo il
percorso tra i due punti su MapPoint; immagino che sia altrettanto
simile visualizzare una mappa.
Qui di seguito il codice utilizzato (che spero possa esserti utile per
capire).
Ciao,
Roberto LF
Private Sub CmdCalcoloDistanza_Click()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route
Dim WaDa As String, WaA As String
        Me.Distance = 0
        Me.Cost = 0
        Me.TripTime = 0
        Me.DrivingTime = 0
        Me.Distance.SetFocus
        DoCmd.Echo True, "Attendere, Calcolo della distanza in Corso!"
        'Set up the application
        Set objMap = objApp.ActiveMap
        Set objRoute = objMap.ActiveRoute
        objApp.Visible = Me.FL_MapVisibile
        objApp.UserControl = True
        'Add route stops and calculate the route
        objRoute.Waypoints.Add objMap.FindResults(Me.DA).Item(1)
        objRoute.Waypoints.Add objMap.FindResults(Me.A).Item(1)
        objRoute.Calculate
        Me.Distance = objRoute.Distance
        Me.Cost = objRoute.Cost
        Me.TripTime = objRoute.TripTime / 3600
        Me.DrivingTime = objRoute.DrivingTime / 3600
        ...
        ...
        ...
        objApp.ActiveMap.Saved = True
        objApp.Quit
        Set objApp = Nothing
End Sub


[risposta]
Grazie a per la risposta e per l'aiuto, questa sera provero' con i
vostri consigli e vi faro' sapere se va tutto bene, grazie mille di
nuovo ciao ciao


[risposta]
Finalmente sono riuscito a provare le soluzioni che mi sono state
proposte e ..... funzionano tutte e due, grazie mille
perchè non sapevo proprio dove sbattere la testa. Ancora grazie e ciao
ciao