<\/p>\n
Sie möchten den Anwendern Ihrer Datenbank die Möglichkeit anbieten, neben den eigentlichen Adressdaten auch gleich dazugehörige Geoinformationen einzusehen Dazu eignen sich sicher die Dienste Google-Maps oder Bing-Maps. Ein Webbrowser-Steuerelement im Formular könnte als Host für jene dienen. Doch der Weg ist steiniger, als erwartet! Wie Sie die auftretenden Probleme lösen können, beschreibt dieser Beitrag.<\/b><\/p>\nGoogle Maps<\/h2>\n
Wenn Sie nach einem Ort auf der Startseite von Google Maps <\/b>(https:\/\/www.google.de\/maps<\/b>) recherchieren, so geben Sie in das Suchfeld links oben die gewünschte Adresse ein. Google verarbeitet die Anfrage mit seinen Geo Location Services<\/b> und zeigt das Resultat im Browser an. Dabei ändert sich die Adresszeile entsprechend. Aus der Anfrage Duisburg Borkhofer Str.<\/b> wird dann eine URL<\/b>, die sich aus mehreren Teilen unterschiedlicher Bedeutung zusammensetzt:<\/p>\n Der Service hat zunächst ermittelt, dass es sich offenbar um den Ort Duisburg<\/b> in Deutschland handeln soll, der die Postleitzahl 47137<\/b> besitzt. Die Angabe des Landes fehlt. Google geht davon aus, dass der Ort sich mit großer Wahrscheinlichkeit in dem Land befindet, von dem aus die Anfrage gesendet wurde. Dies geht etwa aus der übermittelten IP<\/b> hervor. Der Straßenname vervollständigt diesen Teil, in dem natürlich keine Leerzeichen vorkommen dürfen. Sie sind durch Pluszeichen ersetzt.<\/p>\n Doch damit nicht genug! Hinter einem Slash befinden sich, durch ein @<\/b> symbolisiert, auch gleich die Geokoordinaten des gefundenen Orts. Längen- und Breitengrad kommen als Fließkommazahlen daher, wobei als Dezimaltrennzeichen der Punkt dient. Kommas trennen hingegen die einzelnen Werte. Was jedoch hat es mit dem dritten Parameter dieses Teils auf sich, dem 17z<\/b><\/p>\n Versuch und Irrtum machen schlau, denn Google hat den Aufbau dieser Parameter nicht wirklich dokumentiert. Etliche Leute, den Autor eingeschlossen, haben teilweise herausgefunden, was sie bedeuten. Am weitesten kam wohl M. Sticklesville <\/b>mit der Aufstellung in seinem Blog (https:\/\/mstickles.wordpress.com\/2015\/06\/12\/gmaps-urls-options<\/b>). Der dritte Parameter gibt nämlich den Zoomgrad der Kartenansicht wieder.<\/p>\n Sie können den Wert in der Adresszeile des Browsers einfach von Hand ändern, etwa in 11z<\/b>. Der Ort wird nun von weiter oben betrachtet. Bei 4z<\/b> ist allerdings Schluss. Damit wird fast die Erdhalbkugel angezeigt. Der höchste Zoomfaktor beträgt 21z<\/b>. Bei allen anderen Werten außerhalb dieses Bereichs kommt es nicht etwa zu einer Fehlermeldung, sondern Google korrigiert den Faktor automatisch durch Auf- oder Abrunden auf den nächsten Wert.<\/p>\n Im dritten Teil der URL findet sich ein ominöser data<\/b>-Parameter. Zahlen, Buchstaben und Ausrufezeichen wechseln sich scheinbar willkürlich ab. Tatsächlich haben sie eine Bedeutung, der Sie auf die Schliche kommen, wenn Sie etwa die Ansicht der Karte auf Satellit<\/b> einstellen, oder den Layer für das Verkehrsaufkommen einschalten. Bis auf diesen data<\/b>-Parameter bleiben alle anderen Teile der URL dabei konstant. Der data<\/b>-Parameter bestimmt das Layout der Karte. Wenn Sie mehr über seinen Aufbau erfahren möchten, so kundschaften Sie den angegebenen Blog von Sticklesville<\/b> aus. Wir kommen auf den data<\/b>-String aber auch später noch zu sprechen.<\/p>\n Am Ende der URL schließt sich ein länglicher String an, der wohl die ID<\/b> der Suchanfrage enthält. Google cachet diesen Wert auch in einem Cookie<\/b>, um Rechenzeit einzusparen. Er ist für die Suchanfrage bedeutungslos.<\/p>\n Sie können die URL nun dergestalt modifizieren, dass nur noch die wichtigsten Elemente enthalten sind. Das sähe dann so aus:<\/p>\n Falls die Koordinaten dieselben sind, wie zuvor, so macht Google sofort wieder die ursprüngliche Version daraus, weil es sie aus dem Cookie<\/b> ausliest. Bei geänderten Koordinaten hingegen bleibt der String meist erhalten. Allerdings ändert sich nun auch die Ansicht komplett: Das Control Panel links<\/b> verschwindet und der Orts-Marker<\/b> ist ebenfalls nicht mehr da.<\/p>\n Man kann an dieser Stelle zusammenfassen, dass sich die Google-Maps-Anfragen in einer URL unterbringen und sich dabei sowohl Zoomfaktor, wie auch Gestalt des Kartengebnisses, beeinflussen lassen. Was will man mehr Damit ist der erste Teil der Aufgabe in Angriff genommen, eine Google-Maps-Karte in ein Formular zu bringen.<\/p>\n Als Host für die Maps<\/b>-Seiten soll ein Webbrowser-Steuerelement dienen, das Microsoft seit der Access-Version 2007 in den Fundus der Steuerelemente integriert hat. Es unterscheidet sich in nichts vom gleichnamigen ActiveX-Steuerelement, das Windows immer mit sich führt. Lediglich die Möglichkeit, es direkt an ein Datenfeld einer Tabelle oder Abfrage zu binden, welches die zu navigierende URL enthält, ist ein Bonus-Feature.<\/p>\n Zum Test setzen Sie das Webbrowser-Steuerelement in ein neues Formular ein, wie dies im Formular frmMaps der Beispieldatenbank GoogleMaps.accdb<\/b> geschah (siehe Bild 1). Außer dem Webbrowser Control<\/b> enthält es nur ein Textfeld rechts oben, welches den Inhalt des URL<\/b>-Felds des aktuellen Datensatzes anzeigt. Die Tabelle tblURLs<\/b> dient als Datenherkunft des Formulars. Sie weist neben der Autowert-ID<\/b> nur das Feld URL<\/b> aus und ein optionales Feld Beschreibung<\/b>, welches hier nicht zum Einsatz kommt. An URL<\/b> sind sowohl das Textfeld, wie auch das Webbrowser-Steuerelement gebunden.<\/p>\n Bild 1: Im Testformular zur Tabelle tblURLs ist zentral ein Webbrowser-Steuerelement untergebracht<\/span><\/b><\/p>\n Nach dem ersten Start präsentiert das Formular eine leere Fläche, da die erste URL den Inhalt about:blank<\/b> hat. Würde die URL nämlich aus einem Leer-String bestehen, so käme es zu einer Fehleranzeige im Browser wegen ungültiger Adresse. Der zweite Datensatz hat den folgenden Inhalt:<\/p>\n Sie erwarten, dass nun Google-Maps im Browser angezeigt wird Stattdessen konfrontiert uns Google mit der Meldung aus Bild 2. Aus irgendeinem Grund ist es mit dem Webbrowser-Steuerelement nicht zufrieden und verwehrt die Navigation zu Maps<\/b>. Doch dieses verwendet intern ja lediglich den im System installierten Internet Explorer<\/b>, der möglicherweise in einer aktuellen Version 11<\/b> vorhanden ist (Edge<\/b> bleibt außen vor). Warum dann diese Meldung<\/p>\n Bild 2: Statt Maps zeigt Google trotz korrekter URL zunächst eine Inkompatibilitätsmeldung an<\/span><\/b><\/p>\n Aus Sicherheitsgründen grenzt Microsoft die Möglichkeiten im Webbrowser Controls<\/b> stark ein. Das gilt übrigens für das Access-Steuerelement gleichermaßen, wie für das ActiveX-Steuerelement. Die wichtigste änderung besteht darin, dass das Control grundsätzlich die Version IE7<\/b> nach außen meldet.<\/p>\n Genau damit ist Google nicht einverstanden, da die aktuelle Version von Maps<\/b> einen neueren Browser für korrekte Funktion erwartet. Zudem erlaubt das Control nur eine eingeschränkte Ausführung von JavaScript<\/b>. <\/p>\n Das Ende der Fahnenstange ist damit zum Glück noch nicht erreicht. Tatsächlich können Sie das Verhalten des Webbrowser Controls durch Einstellungen in der Registry<\/b> ändern! Und dafür sind noch nicht einmal administrative Rechte erforderlich, da sich der entsprechende Zweig im Benutzerteil HKEY_CURRENT_USER<\/b> befindet:<\/p>\n Unter diesem Zweig befinden sich noch weitere Schlüssel, die verschiedene Funktionen des Controls steuern. Der wichtigste ist dabei der Folgende:<\/p>\n Unter diesem Schlüssel tragen Sie einen DWORD<\/b>-Wert ein, der den Namen msaccess.exe<\/b> trägt. Als Wert verwenden Sie 11001<\/b>. Dieser nämlich führt dazu, dass Windows beim Start einer Access-Instanz und dem öffnen eines Webbrowser-Steuerelements hier nachschaut, ob ein Eintrag zu finden ist. Falls Prozessname und Eintrag zueinander passen, so spendiert Windows dem zugrundeliegenden Internet Explorer die angegebenen Version. Beim Wert 11001<\/b> wäre das die Version 11<\/b>. Funktionieren würde Google Maps auch noch mit der Version 9<\/b>, die dem Registry-Wert 9999<\/b> entspräche. Doch warum zu einer älteren Version greifen, wenn es eine neuere gibt Voraussetzung ist natürlich, dass auch tatsächlich der Internet Explorer 11<\/b> installiert ist. Passen Sie den Wert an die installierte Version an. Im MSDN<\/b> gibt es eine Seite, die erschöpfender darüber Auskunft gibt (https:\/\/msdn.microsoft.com\/en-us\/library\/ee330730(v=vs.85).aspx<\/b>). Edge<\/b> kann das Webbrowser Control übrigens nicht hosten. Es verwendet auch unter Windows 10 <\/b>den Kompatibilitätsmodus des IE11<\/b>.<\/p>\n Bedenken brauchen Sie bei der Modifikation der Registry hier nicht zu haben. Zum einen sind Einträge unter dem Benutzerzweig recht unverdächtig, zum anderen betrifft die änderung nur ausschließlich Access-Prozesse. übrigens bedienen sich auch andere Entwickler dieser Möglichkeit. Wir fanden in diesem Zweig auch Einträge prominenter Anwendungen, wie Visual Studio<\/b>, RapidPHP<\/b> oder Starmoney<\/b>.<\/p>\n Da die änderungen an der Registry keine Administratorrechte erfordern, können Sie auch von Access aus über VBA getätigt werden. Dies geschieht auch in der Beispieldatenbank. Das Intro-Formular ruft beim Klick auf den grünen Button die Funktion SetWebControlAsIE9<\/b> des Moduls mdlWebcontrol<\/b> auf. Diese liest zunächst aus der Registry aus, ob der Wert für die Browser Emulation<\/b> bereits gesetzt ist. Falls nicht, so holt sie das umgehend nach. Allerdings wirkt sich die änderung noch nicht unmittelbar aus. Erst nach einem Neustart von Access gibt das Webbrowser Control die Version IE11<\/b> aus. Deshalb empfiehlt die Routine in diesem Fall auch gleich den Neustart (Bild 3) und bewerkstelligt diesen auch noch. Schauen wir uns diese Routine (ersterer Teil in Listing 1) einmal genauer an.<\/p>\n Bild 3: Automatische Aufforderung zum Neustart von Access über die Prozedur SetWebControlAsIE9 und eine Messagebox<\/span><\/b><\/p>\n Da Access und VBA keine Methoden zum Auslesen oder Schreiben der Registry haben, benötigen wir den Verweis auf eine externe Komponente. Für unseren einfachen Zweck gelingt das am effizientesten mit der Bibliothek Windows Script Host Object Model<\/b>, die im Objektkatalog nachher den Namen IWshRuntimeLibrary<\/b> trägt und auf der Datei wshom.ocx <\/b>beruht. Diese Bibliothek ist Bestandteil von Windows und kann deshalb bedenkenlos zum Einsatz kommen. Ihre Klasse WshShell<\/b> enthält Methoden zur Modifikation der Registry.<\/p>\n Die Objektvariable oShell<\/b> nimmt eine Instanz dieser Klasse per New<\/b> auf. Der Zweig der Registry ist in der String-Variablen sKey<\/b> gespeichert, und zwar inklusive des Wertnamens. Die Funktion RegRead<\/b> auf den Schlüssel gibt dann den Wert als Variant in der Variablen vKey<\/b> zurück. Da es zum Fehler kommt, wenn der Registry-Schlüssel nicht existiert, ist der Aufruf der Funktion in eine Fehlerbehandlung über On Error Resume Next<\/b> eingebettet. Der Fehlerwert beträgt in diesem Fall -2147024894<\/b>, der in der folgenden Bedingung dazu führt, dass der Schlüsselwert über die Methode RegWrite<\/b> neu geschrieben wird. Die Klasse WshShell<\/b> erlaubt also einen komfortablen Zugriff auf die Registry mit sehr wenig Aufwand.<\/p>\n Existiert der Schlüsselwert zwar, so ist zu prüfen, ob er dem gewünschten entspricht. Das übernehmen die folgenden Zeilen. Weicht der Inhalt von vKey<\/b> von 11001<\/b> ab, so erfolgt abermals das Schreiben in den Schlüssel. Ansonsten passiert außer der informativen Ausgabe im VBA-Direktfenster weiter nichts. Wichtig aber ist noch eine Kleinigkeit: Wurde in die Registry geschrieben, so erhält die Bool-Variable bNewStart<\/b> den Wert True<\/b>. Dieser Wert wird am Ende der Routine ausgewertet:<\/p>\n RestartAccess<\/b> ist eine weitere Prozedur im Modul, die den Neustart von Access veranlasst (siehe Listing 2). Wird die Nachfrage der MsgBox<\/b> bestätigt, so wird wieder das Shell<\/b>-Objekt bemüht. Seine Methode Exec<\/b> entspricht ungefähr der Shell<\/b>-Methode von VBA, ist aber etwas einfacher zu handhaben. In sExec<\/b> wird ein String zusammengebastelt, der eine neue Instanz von Access startet, wobei über SysCmd<\/b> erfahren wird, wo sich die msaccess.exe<\/b> befindet. Als Parameter für den Prozess wird der Name der aktuellen Datenbank (CurrentDb.Name<\/b>) übergeben. In der Folge startet eine zusätzliche Instanz der Datenbank. Die aktuelle Instanz wird aber über Quit<\/b> geschlossen. Das passiert so schnell, dass es kaum wahrnehmbar ist. Im Ergebnis befinden wir uns in der Datenbank mit dem neu aktiviertem Webbrowser Control<\/b>.<\/p>\n Listing 2: Die Routine RestartAccess übernimmt gegebenenfalls den Neustart von Access<\/span><\/b><\/p>\n Die Routine SetWebControlAsIE9<\/b> enthält noch einen zweiten Teil, der drei weitere Einstellungen für das Control vornimmt. Das passiert analog zum ersten Teil. Der Unterschied besteht nur darin, dass der Code-Block nicht dreimal wiederholt wird, sondern eine Schleife auf das Array vRegElement<\/b> die einzelnen Registry-Schlüssel anspricht:<\/p>\n Falls es noch nicht aufgefallen sein sollte: RegWrite<\/b> übernimmt in einem Rutsch die Anlage des Registry-Schlüssels und des Werts! Einfacher geht“s nicht! Bei allen alternativen Methoden muss das separat erfolgen.<\/p>\n Neben den Einstellungen, die so über die Registry vorgenommen werden können, gibt es noch einige weitere, die die weitgehende übereinstimmung des Webbrowser-Steuerelements mit dem dem Internet Explorer herstellen können. Dazu jedoch muss eine Windows-API-Funktion bemüht werden, die sich CoInternetSetFeatureEnabled<\/b> nennt. Das Setzen dreier neuer Eigenschaften ist in die Prozedur ChangeWebControlFeature<\/b> ausgelagert (Listing 3).<\/p>\n <\/p>\n Listing 3: ChangeWebcontrolFeature setzt neue Eigenschaften für das Webbrowser Control per API<\/span><\/b><\/p>\n Die Konstanten für Steueranweisungen, wie FEATURE_BEHAVIOURS<\/b>, stehen im Kopf des Moduls. Sie bestimmen das anzusprechende Feature des Webbrowser Controls. Für alle drei Aufrufe ist die Anweisung SET_FEATURE_ON_PROCESS<\/b> angegeben. Das besagt, dass die Eigenschaft nur auf den laufenden Prozess, also die Access-Instanz, wirken soll. Dabei fragt die zweite API-Funktion CoInternetIsFeatureEnabled<\/b> jeweils zuerst ab, ob die Eigenschaft schon gesetzt ist. Die Prozedur ChangeWebControlFeature<\/b> muss, da sie nur den Prozess betrifft, immer beim Start der Datenbank ausgeführt werden. Auf die Bedeutung der einzelnen Features möchten wir an dieser Stelle nicht weiter eingehen. In der MSDN (https:\/\/msdn.microsoft.com\/en-us\/library\/ee330720(v=vs.85).aspx<\/b>) sind die Features näher erläutert.<\/p>\n Zurück zu unserem Testformular. Nach dem Durchlaufen der Anpassungsroutinen und Neustart von Access rufen Sie frmMaps<\/b> erneut auf. Und nun präsentiert sich beim zweiten Datensatz tatsächlich die Startseite von Google Maps (s. Bild 4). Alles ok! Der dritte Datensatz verweist direkt auf eine zuvor in Maps im Browser ermittelte Ortsadresse:<\/p>\n Bild 4: Google Maps nach der Anpassung des Webbrowser-Steuerlements über Registry und API<\/span><\/b><\/p>\n Auch diese wird nun korrekt angesteuert (s. Bild 5). Da es sich um keine genaue Adresse handelt, sondern eine Stadt, wird diese in der Karte als Gebiet umrahmt. Störend ist bei dieser Formulargröße allerdings, dass das Control Panel<\/b> von Google Maps mehr Platz einnimmt, als der Kartenausschnitt. Leider lässt sich dieses Panel nach allem bisherigen Wissen nicht über Steuerparameter ausblenden. Da bleibt nur der Klick auf den Schließen-Button des Panels, der dann allerdings auch die Ortsmarkierung in der Karte entfernt…<\/p>\n Bild 5: Google Maps zeigt nach Ansteuerung einer Such-URL das richtige Ergebnis mit Steuer-Panel<\/span><\/b><\/p>\n Bei genauerem Hinsehen finden Sie in der Karte einen kleinen Blitz links neben den +\/-<\/b>Elementen zu Zoomen der Karte eingebaut. Der fehlt beim Aufruf der Seite in einem Browser. Ein Klick auf ihn fördert ein Popup zutage, welches die Meldung in Bild 6 enthält. Offenbar hat Google nun doch ermittelt, dass hier nicht mit einem vollwertigen Browser gearbeitet wird. Das liegt daran, dass bestimmte externe Objekte des Web-Dokuments hier nicht über JavaScript<\/b> ansprechbar sind. Wir konnten im Lite-Modus<\/b> jedoch keine wesentlichen Einschränkungen feststellen. Alle Ansichten, inklusive Street View,<\/b> konnten anstandslos eingeschaltet werden und verhielten sich erwartungsgemäß.<\/p>\n Bild 6: Trotz Webbrowser-Control-Anpassungen schaltet Google-Maps dennoch in den sogenannten Lite-Modus<\/span><\/b><\/p>\n Mit den bisherigen Erkenntnissen im Gepäck kann es an die Realisierung einer Beispiellösung gehen. Ziel ist es, ein einfaches Adressformular zu Kunden der Datenbank um eine Kartenansicht zu bereichern. Hierfür kommt das Datenmodell in Bild 7 zum Einsatz. In der Tabelle tblKunden<\/b> sind Adressen gespeichert.<\/p>\n Bild 7: Beziehungs-Layout der Beispieldatenbank (Kundenadressen)<\/span><\/b><\/p>\n tblAnreden<\/b> und tblOrte<\/b> sind verknüpfte Detailtabellen. Sie sind auch im Entwurf der Kundentabelle (s. Bild 8) in den Feldern IDAnrede<\/b> und IDOrt<\/b> als Nachschlagetabellen für die hier verwendeten Kombinationsfelder eingetragen. tblKunden<\/b> zeigt im Entwurf neben den üblichen Adressfeldern noch die zwei zusätzlichen Textfelder MapsURL<\/b> und BingURL<\/b>. In sie sollen später die über Google- oder Bing-Maps im Webbrowser-Steuerelement ermittelten Such-URLs abgelegt werden. Bild 9 demonstriert einen Ausschnitt der Daten in der Datenblattansicht. Beide URL-Felder sind mit dem Vorgabewert about:blank<\/b> belegt, der dann, wie im unteren Bereich zu sehen, durch die korrekten Maps-Adressen ersetzt wird. übrigens handelt es sich hier zwar um gefakte Adressen, bei denen jedoch die Kombination Straße, PLZ<\/b> und Ort korrekt sind, damit die Geo Services<\/b> etwas Sinnvolles finden können.<\/p>\n Bild 8: Der Entwurf der Tabelle tblKunden zeigt die URL-Felder<\/span><\/b><\/p>\n Bild 9: Die Tabelle tblKunden ist mit etwa 7000 Fake-Adressen gefüllt, die zusätzlich die URL zu Google- oder Bing-Maps aufnehmen können<\/span><\/b><\/p>\n Die Tabelle tblKunden<\/b> stellt nun die Datenbasis für das Formular frmKundenMaps<\/b>, dessen Entwurf Bild 10 darstellt. Die Steuerelemente im Detailbereich sind unmittelbar an die Datenfelder geknüpft, wobei die Kombinationsfelder zu Anrede<\/b> und Ort<\/b> natürlich die entsprechenden Nachschlagetabellen heranziehen. Die große weiße Fläche ist ein mit ctlWebX<\/b> benanntes Webbrowser-Steuerelement, das ebenfalls an das Feld MapsURL<\/b> gebunden ist. Damit wird beim Aufruf des Formulars direkt zur Seite about:blank<\/b>, dem Standardwert des Datenfels, navigiert. Andernfalls bekäme man im Webbrowser Control die Meldung Ungültige Adresse<\/b> zu Gesicht. Die Verankerung des Steuerelements ist auf Quer und nach unten dehnen<\/b> eingestellt, damit sich der Webbrowser nach Resizen<\/b> des veränderbaren Formularrahmens entsprechend vergrößert.<\/p>\n Bild 10: Entwurfsansicht des Formulars frmKundenMaps mit dem Webbrowser-Steuerelement unten<\/span><\/b><\/p>\n über dem Webbrowser sind noch einige Steuerelemente ohne Datenbindung untergebracht. Sie dienen zur Steuerung der Kartenansicht. Zur Einstellung des Zoomfaktors kommt dabei ein ActiveX-Steuerelement, der Microsoft Forms Scrollbar<\/b>, zum Einsatz, dessen Eigenschaften wie in Bild 11 gesetzt wurden. Der Minimalwert, den das Steuerelement mit nach links gezogenem Scroll-Ziehelement einnehmen kann, ist 4<\/b>. Ganz rechts kommt es zum Maximalwert 21<\/b>. Sie ahnen bereits, dass dies die Werte sind, die später direkt für den z-Parameter<\/b> der Maps-URL<\/b> verwendet werden sollen. Der Standardwert ist 15z<\/b>. Ein Klick auf die Pfeil-Buttons erhöht oder senkt den Faktor um eins, ein Klick auf die Balkenfläche um drei.<\/p>\n Bild 11: Eigenschaften des MS-Forms-Scrollbar-Steuerelements ctlZoom<\/span><\/b><\/p>\n Die Gruppe der drei Optionsschaltflächen links stellt den Ansichtsmodus ein, die Optionsgruppe rechts den optionalen Karten-Layer für Radwege, Verkehrsaufkommen oder öffentliche Verkehrsmittel. <\/p>\n Mit dem blauen Pfeil-Button neben der Orts-Combo hat es folgende Bewandtnis: Manchmal kann Google die Adresse nicht richtig interpretieren, weil es sie etwa nicht gibt, Schreibweisen falsch sind, oder Felder schlicht leer gelassen wurden. Dann kommt auch keine gültige Maps-URL<\/b> heraus und das Browser-Feld bleibt, wie wir noch sehen werden, leer. In diesem Fall führt ein Klick auf den blauen Button zu einer neuen Suchanfrage, wobei hier lediglich der Ortsname übergeben wird. Damit lässt sich dann wenigstens der auf der Karte darstellen.<\/p>\n Und schließlich finden Sie noch ganz oben ein Kombinationsfeld cbFind<\/b> mit der Beschriftung Gehe zu<\/b>, in dem die Namen aller Kunden der Datenbank aufgelistet werden. Es dient zur Navigation durch den Kundenstamm, weil die Navigationsschaltflächen<\/b> des Formulars auf Nein<\/b> stehen. Die Datenherkunft des Kombinationsfelds besteht aus einer UNION-Abfrage<\/b>, die zwei künstliche Einträge zur Kundenliste hinzufügt:<\/p>\n Die Abfrage gibt damit im Feld-Alias Vollname<\/b> die aus Nach- und Vorname zusammengesetzten Namen der Tabelle tblKunden<\/b> zurück, und zweitens die ID<\/b> des Kunden, die immer größer ist, als 0<\/b>. Hinzugefügt werden die Einträge (Kunden löschen)<\/b> und (Neuer Kunde)<\/b> mit den künstlichen IDs<\/b> -1<\/b> und 0<\/b>. Nach Aktualisierung der Combobox kann der sie gebundene ID<\/b>-Wert ausgelesen und in der Ereignisprozedur ausgewertet werden. Infolge der aufsteigenden Sortierung der Datensätze stehen die künstlichen Datensätze mit der beginnenden Klammer immer ganz oben in der Liste. Der Code der Prozedur Nach Aktualisierung<\/b> steht in Listing 4. Wertet das Select-Case<\/b>-Statement die 0<\/b> für (Neuer Kunde)<\/b> aus, so übernimmt das DoCmd.GotoRecord<\/b> mit dem Parameter acNewRec<\/b> die Neuanlage eines Datensatzes. Bei der -1<\/b> kommt es zum Löschen des Datensatzes über RunCommand acCmdDeleteRecord<\/b>. Andernfalls springt das Formular über dessen Recordset und die FindFirst<\/b>-Methode anhand der übergebenen ID<\/b> zum gewünschten Kunden.<\/p>\n Listing 4: Navigieren durch die Datensätze über das Kombinationsfelds cbFind<\/span><\/b><\/p>\n Soweit die generelle Beschreibung des Formularentwurfs. Nun soll nach Auswahl eines Kunden sogleich die entsprechende Karte im Webbrowser angezeigt werden. Dafür kommt dann das Ereignis Beim Anzeigen<\/b> (Form_Current<\/b>) infrage. In dessen Prozedur wird die Suchanfrage zusammengestellt. Listing 5 stellt die dafür relevanten Teile dar. Zunächst wir hier getestet, ob der im Feld MapsURL<\/b> der Datenherkunft gespeicherte Wert den String about:blank<\/b> trägt. Das ist standardmäßig ja der Fall und ein Indiz, dass noch keine Maps<\/b>-Adresse ermittelt wurde. In diesem Fall schreitet die Routine zur Tat und stellt den Such-String anhand der Adressfelder zusammen. übrigens tut sie das auch dann, wenn die Variable bForceUpdate<\/b> den Wert True<\/b> besitzt. Diese globale Variable wird, wie noch zu erläutern ist, in anderen Prozeduren belegt und dient dann dazu, die Suchanfrage hier zu erzwingen.<\/p>\n Listing 5: Beim Anzeigen eines Datensatzes stellt die Prozedur die Suchanfrage für Maps zusammen<\/span><\/b><\/p>\n Die String-Variable sLoc<\/b> nimmt den Suchtext auf. Sie beginnt immer mit der generellen URL für Google-Maps, die aber zunächst in der Variablen sURL<\/b> gespeichert wird. Statt \/maps\/place\/<\/b> können Sie übrigens genauso gut \/maps\/search\/<\/b> einsetzen. Das Ergebnis unterscheidet sich in der Regel dabei nicht. Ist eine Ortsangabe im Datensatz vorhanden, also IDOrt<\/b> nicht Null<\/b>, so liest der Code aus der Text-Eigenschaft des Kombinationsfelds cbOrt<\/b> deren Namen aus, wozu erst der Fokus auf das Steuerelement gesetzt werden muss. Die Postleitzahl aus dem Datenfeld PLZ<\/b> wird vorangestellt und die Straße ebenfalls, wobei der Ort hinten über ein Komma abgesetzt wird.<\/p>\n Leerzeichen links und rechts werden anschließend mit der Trim<\/b>-Funktion entfernt und Leerzeichen mitten im Text, die ja in URLs nichts zu suchen haben, durch die numerische Repräsentation %20<\/b> ersetzt.<\/p>\n Kommt dabei ein valider Such-String in sLoc<\/b> heraus, was die Len<\/b>-Funktion ermittelt, dann kommt es zum Aufruf der Methode Navigate2<\/b> des Webbrowser-Steuerelements ctlWeb<\/b>, die es anweist, die URL<\/b> anzusteuern. Sie setzt sich aus der generellen URL in sURL<\/b> zusammen, aus der Adresse in sLoc<\/b> und aus einem String, der von der Hilfsfunktion fuOptions<\/b> zurückgegeben wird. Diese Hilfsfunktion stellt die Parameter für das Layout der Karte zusammen, die im data<\/b>-Block an die Suchadresse angehängt werden. Die Beschreibung dieser Funktion folgt gleich noch.<\/p>\n Doch lautet der Name des Webbrowser-Steuerelements nicht ctlWebX<\/b>, obwohl hier ein ctlWeb<\/b> angesprochen wird Das ist korrekt. Tatsächlich ist im Kopf des Formulars eine Objektvariable ctlWeb<\/b> deklariert:<\/p>\n Der Typ Webbrowser<\/b> stammt aus der Bibliothek Microsoft Internet Controls<\/b> (shdocvw)<\/b>, die in den Verweisen des Projekts steht und für den Internet Explorer<\/b> unter Windows verantwortlich ist. Im Beim Laden<\/b>-Ereignis des Formulars (Form_Load<\/b>) wird ihr das Webbrowser-Steuerelement zugewiesen:<\/p>\n Kleiner, aber feiner Unterschied: Nicht das Steuerelement selbst, sondern dessen Object<\/b>-Eigenschaft wird hier zugewiesen! Denn die ist absolut kompatibel mit der Webbrowser<\/b>-Klasse in shdocvw<\/b>. Der Grund für das Vorgehen: Microsoft hat etliche Eigenschaften und Methoden der Webbrowser-Klasse aus seinem Access- Steuerelement eliminiert. Es hat nämlich gar keine Methode, um die Navigation zu einer Web-Seite anzuordnen. Das hat bei ihm immer über die Datenbindung an den Steuerelementinhalt<\/b> zu geschehen.<\/p>\n Zurück zur Hilfsfunktion fuOptions<\/b>, die in Listing 6 abgebildet ist. Die angesprochenen Optionsgruppen im Formular zur Steuerung der Kartenansicht nennen sich fr1<\/b> und fr2<\/b>. Der Wert ihrer Schaltflächen beträgt einmal 1<\/b>, 2<\/b>, oder 4<\/b>, dann 0<\/b>, 8<\/b>, 16<\/b>, 32<\/b>. Die Werte beider Gruppen werden in der Variablen n<\/b> addiert. Damit ergibt sich für jegliche Auswahlkombination ein eindeutiger Wert, der im folgenden Select-Case<\/b>-Block ausgewertet wird. Die Zweige sind wohl selbsterklärend.<\/p>\nhttps:\/\/www.google.de\/maps\/place\r\n \/Borkhofer+Str.,+47137+Duisburg\r\n \/@51.4634026,6.7777953,17z\r\n \/data=!3m1!4b1!4m5!3m4!1\r\n s0x47b8bfbe53cca829:0xb28d5de5549581d!8m2!3d51.4634026!4d6.7799893<\/pre>\n
https:\/\/www.google.de\/maps\/place\r\n \/@51.4634026,6.7777953,17z\r\n \/data=!3m1!4b1!4m5!3m4!1<\/pre>\n
Das Webbrowser-Steuerelement<\/h2>\n
![\"Im](\"..\/fileadmin\/_temp_\/2017_03\/01_frmMaps.png\")
<\/p>\nhttps:\/\/www.google.de\/maps\/<\/pre>\n
![\"Statt](\"..\/fileadmin\/_temp_\/2017_03\/02_IE_GM_NotOk.png\")
<\/p>\nWebbrowser Control: Limitierungen und deren Aufhebung<\/h2>\n
HKEY_CURRENT_USER\\Software\\Microsoft\r\n \\Internet Explorer\\Main\\FeatureControl<\/pre>\n
FEATURE_BROWSER_EMULATION<\/pre>\n
![\"Automatische](\"..\/fileadmin\/_temp_\/2017_03\/03_Neustart.png\")
<\/p>\n If <\/span>bNewStart Then<\/span>\r\n RestartAccess\r\n End If<\/span><\/pre>\nSub <\/span>RestartAccess()\r\n If MsgBox<\/span>(\"Die Datenbank und Access müssen neu gestartet werden,\" & vbCrLf<\/span> & _\r\n \"weil die Einstellungen für das WebControl geändert wurden.\" & vbCrLf<\/span> & _\r\n \"Jetzt neu starten\", vbQuestion Or vbYesNo, \"Bestätigen:\") = vbYes Then\r\n \r\n Dim <\/span>sExec As String<\/span>\r\n Dim <\/span>oShell As <\/span>New<\/span> WshShell\r\n \r\n sExec = Chr$(34) & SysCmd(acSysCmdAccessDir) & \"msaccess.exe\" & Chr$(34) & _\r\n \" \" & Chr$(34) & CurrentDb.Name & Chr$(34)\r\n oShell.Exec sExec\r\n Application.Quit acQuitSaveNone\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nvRegElement = Array(\"FEATURE_BLOCK_LMZ_SCRIPT\", \r\n \"FEATURE_BLOCK_LMZ_OBJECT\", \r\n \"FEATURE_BLOCK_LMZ_IMG\")\r\nFor i= 0 To 2\r\n sKey = \"HKEY_CURRENT_USER\\Software\\Microsoft\\\" & _\r\n \"Internet Explorer\\Main\\FeatureControl\\\" & _\r\n vRegElement(i) & \"\\msaccess.exe\"\r\n ...\r\n oShell.RegWrite sKey, 1, \"REG_DWORD\"\r\n ...\r\nNext<\/span> i<\/pre>\nPublic <\/span>Declare Function CoInternetSetFeatureEnabled Lib \"urlmon.dll\" _\r\n (ByVal FeatureEntry As <\/span>eINTERNETFEATURELIST, ByVal Flags As <\/span>eFEATURESetting, ByVal bEnable As Long<\/span>) As Long<\/span>\r\nPublic <\/span>Declare Function CoInternetIsFeatureEnabled Lib \"urlmon.dll\" _\r\n (ByVal FeatureEntry As <\/span>eINTERNETFEATURELIST, ByVal Flags As <\/span>eFEATURESetting) As Long<\/span>\r\nSub <\/span>ChangeWebControlFeature()\r\n Dim <\/span>ret As Long<\/span>\r\n Dim <\/span>lret As Long<\/span>\r\n If <\/span>CoInternetIsFeatureEnabled(FEATURE_BEHAVIORS, SET_FEATURE_ON_PROCESS) <> 0 Then<\/span>\r\n ret = CoInternetSetFeatureEnabled(FEATURE_BEHAVIORS, SET_FEATURE_ON_PROCESS, 1)\r\n lret = ret\r\n End If<\/span>\r\n If <\/span>CoInternetIsFeatureEnabled(FEATURE_ZONE_ELEVATION, SET_FEATURE_ON_PROCESS) <> 0 Then<\/span>\r\n ret = CoInternetSetFeatureEnabled(FEATURE_ZONE_ELEVATION, SET_FEATURE_ON_PROCESS, 1)\r\n lret = lret + ret\r\n End If<\/span>\r\n If <\/span>CoInternetIsFeatureEnabled(FEATURE_RESTRICT_ACTIVEXINSTALL, SET_FEATURE_ON_PROCESS) <> 0 Then<\/span>\r\n ret = CoInternetSetFeatureEnabled(FEATURE_RESTRICT_ACTIVEXINSTALL, SET_FEATURE_ON_PROCESS, 0)\r\n lret = lret + ret\r\n End If<\/span>\r\n Debug.Print<\/span> IIf(lret = 0, \"Features adjusted\", \"Feature adjustment failed\")\r\nEnd Sub<\/span><\/pre>\n![\"Google](\"..\/fileadmin\/_temp_\/2017_03\/03_IE_GM_Ok.png\")
<\/p>\nhttps:\/\/www.google.com\/maps\/place\/Berlin,+Deutschland\r\n \/@52.5075419,13.4251364,11z\/data=!4m2!3m1!<\/pre>\n
![\"Google](\"..\/fileadmin\/_temp_\/2017_03\/04_IE_Ok.png\")
<\/p>\n![\"Trotz](\"..\/fileadmin\/_temp_\/2017_03\/05_GM_Lite.png\")
<\/p>\nAdressen im Webbrowser-Steuerelement automatisch über Formular ansteuern<\/h2>\n
![\"Beziehungs-Layout](\"..\/fileadmin\/_temp_\/2017_03\/00_Rellayout.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2017_03\/00_tblKunden_Design.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_03\/00_tblKunden_RT.png\")
<\/p>\n![\"Entwurfsansicht](\"..\/fileadmin\/_temp_\/2017_03\/06_frmKundenDesign.png\")
<\/p>\n![\"Eigenschaften](\"..\/fileadmin\/_temp_\/2017_03\/Props_ctlZoom.png\")
<\/p>\n(SELECT -1 AS ID, \" (Kunden Löschen)\" AS Vollname FROM tblKunden)\r\nUNION\r\n(SELECT 0 AS ID, \" (Neuer Kunde)\" AS Vollname FROM tblKunden)\r\nUNION\r\n(SELECT tblKunden.ID, [Nachname] & \", \" & [Vorname] AS Vollname\r\n FROM tblKunden) ORDER BY Vollname;<\/pre>\n
Private Sub <\/span>cbFind_AfterUpdate()\r\n On Error Resume Next<\/span>\r\n Select Case Me!cbFind.Value\r\n Case <\/span>0\r\n DoCmd.GoToRecord acDataForm, Me.Name, acNewRec\r\n Case <\/span>-1\r\n If MsgBox<\/span>(\"Diesen Kunden wirklich löschen\", _\r\n vbYesNo Or vbExclamation, \"Bestätigen:\") = vbYes Then\r\n RunCommand acCmdDeleteRecord\r\n Me!cbFind.Requery\r\n End If<\/span>\r\n Case Else<\/span>\r\n Me.Recordset.FindFirst \"ID=\" & Me!cbFind.Value\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>sURL As String<\/span>\r\n Dim <\/span>sLoc As String<\/span>\r\n \r\n If <\/span>(Me!MapsURL.Value = \"about:blank\") Or (bForceUpdate = True<\/span>) Then<\/span>\r\n sURL = \"https:\/\/www.google.com\/maps\/place\/\"\r\n If <\/span>Not<\/span> IsNull(Me!IDOrt) Then<\/span>\r\n Me!cbOrt.SetFocus\r\n sLoc = Me!cbOrt.Text\r\n End If<\/span>\r\n If <\/span>Not<\/span> IsNull(Me!PLZ) Then<\/span> sLoc = Me!PLZ & \" \" & sLoc\r\n If <\/span>Not<\/span> IsNull(Me!Strasse) Then<\/span> sLoc = Me!Strasse & \", \" & sLoc\r\n sLoc = Trim<\/span>(sLoc)\r\n sLoc = Replace<\/span>(sLoc, \" \", \"%20\")\r\n \r\n If <\/span>Len<\/span>(sLoc) > 0 Then<\/span>\r\n Me!ctlImgOverlay.Visible = True<\/span>\r\n ctlWeb.Navigate2 sURL & sLoc & fuOptions\r\n Else<\/span>\r\n ctlWeb.Navigate2 \"about:blank\"\r\n End If<\/span>\r\n Else<\/span>\r\n ctlWeb.Navigate2 Me!MapsURL.Value & fuOptions\r\n End If<\/span>\r\n bForceUpdate = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>WithEvents ctlWeb As <\/span>WebBrowser<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> ctlWeb = Me!ctlWebX.Object\r\n...<\/pre>\nPrivate Function <\/span>fuOptions() As String<\/span>\r\n Dim <\/span>n As Long<\/span>\r\n \r\n n = Me!fr1.Value + Me!fr2.Value\r\n Select Case n\r\n ''Normal:\r\n Case <\/span>1: fuOptions = \"\/data=!5m1!1e0\" ''Normal\r\n Case <\/span>9: fuOptions = \"\/data=!5m1!1e3\" ''+Fahrrad\r\n Case <\/span>17: fuOptions = \"\/data=!5m1!1e1\" ''+Verkehrslage\r\n Case <\/span>33: fuOptions = \"\/data=!5m1!1e2\" ''+öffi\r\n ''Gelände:\r\n Case <\/span>4: fuOptions = \"\/data=!5m1!1e4\"\r\n Case <\/span>12: fuOptions = \"\/data=!5m2!1e4!1e3\" ''+Fahrrad\r\n Case <\/span>20: fuOptions = \"\/data=!5m2!1e4!1e1\" ''+Verkehr\r\n Case <\/span>36: fuOptions = \"\/data=!5m2!1e4!1e2\" ''+öffi\r\n ''Satellit:\r\n Case <\/span>2: fuOptions = \"\/data=!3m1!1e3\"\r\n Case <\/span>10: fuOptions = \"\/data=!3m1!1e3!5m1!1e3\" ''+Fahrrad\r\n Case <\/span>18: fuOptions = \"\/data=!3m1!1e3!5m1!1e1\" ''+Verkehr\r\n Case <\/span>34: fuOptions = \"\/data=!3m1!1e3!5m1!1e2\" ''+öffi\r\n End Select<\/span>\r\n \r\n ''Zoom:\r\n fuOptions = \",\" & CStr(Me!ctlZoom.Object.Value) & \"z\" & fuOptions\r\n