Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
MapPoint Routing VBA über Geocodes
zurück: Drucken von Pins weiter: Kaufempfehlung gesucht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Jeeson
Gast


Verfasst am:
17. Okt 2012, 14:04
Rufname:


MapPoint Routing VBA über Geocodes - MapPoint Routing VBA über Geocodes

Nach oben
       

Hallo zusammen,

ich habe folgenden Code um per Geocodes in Access und MapPoint die Entfernung zwischen zwei Orten zu berechnen. Das Problem ist, dass bei manchen Adressen MapPoint lange (ca. 5 Sekunden) für die Berechnung der Entfernung braucht.

In diesem Fall geht mein Code auf einen Fehler "Die Aktion konnte nicht beendet werden, da Karte - MS MapPoint nicht antwortet. Wählen Sie Wechsel zu, um zu MS MapPoint Europa zu wechseln und das Problem zu lösen".

Mit wenn man diese Fehlermeldung öfters per Hand wegclickt, geht es mit der Berechnung irgendwann weiter. Dieser Fehler kommt allerdings nur, wenn ich mit F8, also Manuell den Code in der Ansicht laufen lasse. Wenn der Code automatisiert läuft kommt das Fenster nicht.

Durch diesen Fehler verlängert sich die Berechnung pro Datensatz auf ca. 20 Sekunden.

Kann mir vielleicht jemand helfen und einen Tipp geben?

Ich vermute, dass die objRoute.Calculate Funktion den Fehler bei zu langer Berechnung auslöst. Hätte aber keine Idee, wie ich der Funktion sagen kann, länger rechnen zu lassen.

Auch die Schleife
Code:
    If Not (objRoute.IsCalculated) Then objRoute.Calculate
hat das Problem nicht behoben...

Hier der gesamte Code:
Code:
Public Function Routing()
'On Error GoTo tnsExit
On Error Resume Next
    Dim objApp As New MapPoint.Application
    Dim objMap As MapPoint.Map
    Dim objRoute As MapPoint.Route
    Dim rs As New ADODB.Recordset
    Dim sTemp As String
    Dim sSql As String
    Dim sStart As String
    Dim sEnd As String
   
    'Anwendung einrichten
    Set objMap = objApp.ActiveMap
    Set objRoute = objMap.ActiveRoute
    objApp.Visible = True
    objApp.UserControl = True
    'Ziel setzen
    sEnd = "SELECT * FROM TAB_Test WHERE Aktiv < 1"
    sSql = "SELECT * FROM TAB_Test WHERE Aktiv < 1"
    rs.Open sSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    Do While Not rs.EOF And Not rs.BOF
        'Startort setzen
        objRoute.Waypoints.Add objMap.GetLocation(rs!Breite, rs!Laenge)
        objRoute.Waypoints.Add objMap.GetLocation(rs!A_Breite, rs!A_Laenge)
        objRoute.Calculate
        If Not (objRoute.IsCalculated) Then objRoute.Calculate   
        rs!Laenge = objRoute.Distance
        rs!Dauer = objRoute.DrivingTime * 24 * 60
        rs.Update
        objRoute.Clear
        objApp.ActiveMap.Saved = True
        sStart = ""
        rs.MoveNext
    Loop
    rs.Close
    'SysCmd acSysCmdRemoveMeter
    objApp.ActiveMap.Saved = True
tnsExit:
    Exit Function
End Function
Vielen Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge MS MapPoint Forum: Speicherort für Mappoint Dateien und Fenster 0 Wärmedienst 333 05. Jul 2013, 12:04
Wärmedienst Speicherort für Mappoint Dateien und Fenster
Keine neuen Beiträge MS MapPoint Forum: MapPoint 2011 immer noch für Gebietsplanung unbrauchbar ?! 3 Basti252 2371 16. Mai 2013, 15:11
MP-User MapPoint 2011 immer noch für Gebietsplanung unbrauchbar ?!
Keine neuen Beiträge MS MapPoint Forum: Mappoint 2013 Dateien nicht abwärtskompatibel? 0 rs4net 759 18. März 2013, 11:25
rs4net Mappoint 2013 Dateien nicht abwärtskompatibel?
Keine neuen Beiträge MS MapPoint Forum: Importprobleme von 2004 zu 2011 MapPoint 0 ERASuisse 1354 21. Aug 2012, 09:48
ERASuisse_ Importprobleme von 2004 zu 2011 MapPoint
Keine neuen Beiträge MS MapPoint Forum: GPS Tracks in Mappoint 0 FreddyNrw 1326 20. Aug 2011, 14:35
FreddyNrw GPS Tracks in Mappoint
Keine neuen Beiträge MS MapPoint Forum: Mappoint installieren über visual Studio 0 Gast 1422 04. Mai 2011, 23:59
Gast Mappoint installieren über visual Studio
Keine neuen Beiträge MS MapPoint Forum: Mappoint Web-Export mit Zusatzangaben 1 Gunado 2129 01. März 2011, 21:35
from Monaco Mappoint Web-Export mit Zusatzangaben
Keine neuen Beiträge MS MapPoint Forum: MS MapPoint Route aus DB erstellen 0 Hobbystern 2534 28. Mai 2010, 19:12
Hobbystern MS MapPoint Route aus DB erstellen
Keine neuen Beiträge MS MapPoint Forum: MapPoint & udl & MySQL 1 mariosas 3952 11. Feb 2009, 23:19
SimHo MapPoint & udl & MySQL
Keine neuen Beiträge MS MapPoint Forum: Problem beim Importieren vo MySQL Daten via ODBC in Mappoint 0 SimHo 2209 11. Feb 2009, 17:27
SimHo Problem beim Importieren vo MySQL Daten via ODBC in Mappoint
Keine neuen Beiträge MS MapPoint Forum: Mappoint: Postleitzahlen nach Excel importieren 1 monschterle 6018 14. März 2008, 10:07
DirkG Mappoint: Postleitzahlen nach Excel importieren
Keine neuen Beiträge MS MapPoint Forum: MapPoint - Karten im Internet veröffentlichen 2 Frage123 3233 21. Feb 2008, 20:07
Frage123 MapPoint - Karten im Internet veröffentlichen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript