Office: Kartenanzeige im Formular

Ein herzliches Hallo in die Runde

Ich habe Access 2016 und bin gerade dabei mir eine Adressdatenbank zu erstellen.
Das Formular wird aus einer Abfrage befüllt in der auch die Koordinaten der Adresse mit übergeben werden (Latitude und Longitude).
Dazu habe ich eine Datei Karte.html im selben Verzeichnis die beim Start in den Webbrowser
geladen wird. Funktioniert soweit gut.
Jetzt mein Problem: Wie schaffe ich es die aktuellen Werte (Latitude und Longitude) des aktuellen Datensatzes in die Karte.html Datei zu speichern var(lonLat) um danach den Webbrowser zu refreshen.

Karte.html

<html><body>
<div id='mapdiv'></div>
<script src='http://www.openlayers.org/api/OpenLayers.js'></script>
<script>
map = new OpenLayers.Map('mapdiv', {
controls:[new OpenLayers.Control.Navigation()],
displayProjection: new OpenLayers.Projection('EPSG:4326')});
map.addLayer(new OpenLayers.Layer.OSM());
var lonLat = new OpenLayers.LonLat(13.7411646 ,51.0501288)
.transform( new OpenLayers.Projection('EPSG:4326'),map.getProjectionObject() );
var zoom=13;
var markers = new OpenLayers.Layer.Markers( 'Markers' );
map.addLayer(markers);
markers.addMarker(new OpenLayers.Marker(lonLat));
map.setCenter (lonLat, zoom);
</script>
<noscript><h1>Javascript ist deaktiviert</h1></noscript>
</body></html>

Für eure Hilfe wäre ich sehr dankbar. Leider kenne ich mich mit HTML überhaupt nicht aus.
Schönes Wochenende
Klette

 

Hallo,

Html ist hier nicht das Problem. Die Datei funktioniert ja einwandfrei. (Ist mal was ohne Google Maps).
Entscheidend ist die Zeile:

Code:

var lonLat = new OpenLayers.LonLat(13.7411646 ,51.0501288)

Dieser String muss in der Textdatei, was HTML-Dateien ja eigentlich sind, nur ersetzt werden.
Alle anderen Zeilen kannst Du ja unverändert übernehmen.
Ich würde die Originaldatei in zweiTeile, zerlegen und abspeichern.
Teil1.txt und Teil2.txt.
Dann Teil1 Zeile für Zeile lesen und jede Zeile direkt wieder in die jedesmal neu zu schreibende Karte.html ausgeben.
Ist Teil1 fertig, in der Zeile oben die Koordinaten mit den neuen Daten ersetzen und dann auch in Karte.html schreiben.
Dann mit Teil2 auffüllen und Karte.html schließen.
Dann Karte.html einfach öffnen. Wenn die Dateiendung HTML in Windows als Standarddateityp definiert ist, öffnet sich der Standardbrowser.
Folgender Link zeigt, wie man Textdateien schreibt. (Dieser Vba-Code in Excel geht auch in Access)
Textdatei per VBA erzeugen | HERBERS Excel Forum

Textdatei lesen wird hier beschrieben:
Lesen Sie eine Textdatei Zeile für Zeile in VBA

Um den entscheidenen String zusammen zu bauen benötigst Du Kentnisse über Stringverarbeitung.

Ich denke, das sollte als Hilfe zur Selbsthilfe erstmal reichen.

 

Danke dir für deine schnelle Hilfe , werde es in den nächsten Tagen mal probieren. Gibt es nicht eine Möglichkeit eine einzelne Zeile in der Karte.html zu ersetzen mit dem aktuellen Werten der Lat/Lon.

 

Du könntest die drei Bausteine über einen einfachen DOS-Befehl jeweils neu zusammen fügen.

Eine andere Möglichkeit wäre die HTML-Datei in eine Accestabelle (jeder Zeile nur ein Stringfeld gleich ein Datensatz) zu importieren und dann immer nur die eine Zeile neu aufzubauen und das dann als Textdatei mit Endung HTML wieder zu exportieren.

Viele Wege führen nach Rom. Man könnte auch PHP nutzen um die Koordinaten über Variablen zu füttern. Dann muss die html-Datei aber auf einem Webserver laufen.

Hat aber alles wenig mit Access zu tun. Die HTML-Datei muss halt immer wieder neu zusammengebaut werden, damit ein Browser sie interpretieren kann.

 

Vielleicht ist das ganze ja einfacher, wenn Du mit GoogleMaps suchst. Mit Adresse aus einem Formular geht das so:
(Im Formular beim Button "ButtonRufMaps" ins Klickereignis legen)

Code:

Private Sub ButtonRufMaps_Click()
   Dim mapslink As String

  'Prüfung der Adressfelder
   If IsEmpty(Me.Strasse) Or IsNull(Me.Strasse) Then
     MsgBox ("Keine Straße angegeben!")
     Me.Strasse.SetFocus
     Exit Sub
   End If
   If IsEmpty(Me.PLZ) Or IsNull(Me.PLZ) Then
    MsgBox ("Keine PLZ angegeben!")
    Me.PLZ.SetFocus
    Exit Sub
   End If
   If IsEmpty(Me.Ort) Or IsNull(Me.Ort) Then
     MsgBox ("Kein Ort angegeben!")
     Me.Ort.SetFocus
     Exit Sub
   End If

  'Eigentlicher GoogleMapsaufruf
   mapslink = "https://www.google.de/maps/place/" & Me.Strasse & ", " & Me.PLZ & " " & Me.Ort
   FollowHyperlink (mapslink)

End Sub

 

Ich habe mich jetzt mal damit beschäftigt und habe mir was zusammen gebastelt. Beim Start und Änderung des Datensatzes wird die HTML Datei eingelesen , die eine Zeile geändert und wieder zurückgeschrieben. Funktioniert perfekt. Jetzt muss ich nur noch die Datensätze abfangen die keine Koordinaten haben da Straße, Postleitzahl oder Ort unbekannt.
Danke nochmal für deine Hilfe und Anregungen Andyfau
Hier der Code:

Dim F As Integer
Dim nCount As Long
Dim i As Long
Dim sLines() As String
F = FreeFile
Open "D:\Karte.html" For Input As #F
While Not EOF(F)
nCount = nCount + 1
ReDim Preserve sLines(nCount)
Line Input #F, sLines(nCount)
Wend
Close #F
sLines(9) = " var lonLat = new OpenLayers.LonLat(" & Me.Longitude & "," & Me.Latitude & ")"

F = FreeFile
Open "D:\Karte.html" For Output As #F
For i = 1 To nCount
Print #F, sLines(i)
Next i
Close #F