Access Data > Html Kod

13/01/2021, 12:42

hakkih

Merhaba ;

ekte göndermiş olduğum rar içinde örnek verilmiştir.

Konu şu ;

bir data var datanın 2 kolonu kullanılacak web4 web8

html gönder dediğinde

maps_web4.html gibi bir Html dosyası üretecek

maps_web4 içinde

" // // Birde Çok İşaretçi WEB4
        var

markers = ["

bu kodlar sabit

altına web4 satırın değişken  dataları gelecek
aynı şekilde
"// Bilgi Pencerelerinin İçerikleri WEB 8
        var

infoWindowContent = ["

altındakiler değişken
-----------------------------

web4 ve web 8 değişkenler olacak diğer yazılanlar sabit.


Konuyla ilgili yardımlarınızı bekliyorum...............
13/01/2021, 12:46

berduş

lütfen konu açarken daha dikkat edelim, sorular sorular kısmına açılmalı.
19/01/2021, 15:08

ozanakkaya

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz. 

Dim objStream
Dim FileName, File As String
Dim rst As DAO.Recordset

FileName = CurrentProject.Path & "\Test.html"

Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open

Set rst = CurrentDb.OpenRecordset("CM-DISFA2")
rst.MoveFirst

Do Until rst.EOF
    GVeri = GVeri & rst!WEB4 & vbCrLf
    rst.MoveNext
Loop

rst.MoveFirst
Do Until rst.EOF
    GVeri2 = GVeri2 & rst!WEB8 & vbCrLf
    rst.MoveNext
Loop

GUst = "<html>" & vbCrLf & _
"<meta http-equiv=""x-ua-compatible"" content=""IE=edge"">" & vbCrLf & _
"<body>" & vbCrLf & _
"<style>" & vbCrLf & vbCrLf & _
"adoConn.Open(""Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\Hakkı\Desktop\Yeni klasör\KESME\AVCILAR.accdb'"");" & vbCrLf & vbCrLf & _
"#map_wrapper { " & vbCrLf & _
"        height: 400px; " & vbCrLf & _
"    } " & vbCrLf & vbCrLf & _
"    #map_canvas { " & vbCrLf & _
"        width: 100%; " & vbCrLf & _
"        height: 100%; " & vbCrLf & _
"    } " & vbCrLf & vbCrLf & _
"</style> " & vbCrLf & vbCrLf & _
"<h3>Pandera X</h3>" & vbCrLf & _
"<div id=""map_wrapper"">" & vbCrLf & _
"      <div class=""mapping"" id=""map_canvas""> " & vbCrLf & _
"            &nbsp;" & vbCrLf & _
"      </div>" & vbCrLf & _
"</div>" & vbCrLf

GUst = GUst & vbCrLf & "      <script src=""https://ajax.googleapis.com/ajax/libs/jquery/1.11.3/jquery.min.js""></script>" & vbCrLf & _
"        <script>" & vbCrLf & _
"    jQuery(function ($) { " & vbCrLf & _
"        // API'yi Google'dan Asenkron Olarak Çağır" & vbCrLf & _
"        var script = document.createElement('script'); " & vbCrLf & _
"        script.src = ""http://maps.googleapis.com/maps/api/js?sensor=false&callback=initialize"";" & vbCrLf & _
"        document.body.appendChild(script);" & vbCrLf & _
"    });" & vbCrLf & _
"    function initialize() {" & vbCrLf & _
"        var map;" & vbCrLf & _
"        var bounds = new google.maps.LatLngBounds();" & vbCrLf & _
"        var mapOptions = {" & vbCrLf & _
"mapTypeId:            'roadmap' " & vbCrLf & _
"        };" & vbCrLf & _
"        // Sayfada Haritayı Göster " & vbCrLf & _
"        map = new google.maps.Map(document.getElementById(""map_canvas""), mapOptions); " & vbCrLf & _
"        map.setTilt(45); " & vbCrLf & _
"      // Birde Çok İşaretçi WEB4" & vbCrLf & _
"        var "

GAlt = " // Haritada Birden Fazla İşaretçi Göster" & vbCrLf & _
"        var infoWindow = new google.maps.InfoWindow(), marker, i;" & vbCrLf & _
"        // İşaretçi Dizisini Döngüye Sok ve Harita Üzerine Yerleştir" & vbCrLf & _
"        for (i = 0; i < markers.length; i++) {" & vbCrLf & _
"            var position = new google.maps.LatLng(markers[1], markers[2]);" & vbCrLf & _
"            bounds.extend(position);" & vbCrLf & _
"            marker = new google.maps.Marker({" & vbCrLf & _
"                position: position," & vbCrLf & _
"                map: map," & vbCrLf & _
"                title: markers[0]" & vbCrLf & _
"            });" & vbCrLf & _
"            // Her İşaretçinin Kendine Ait Bir Bilgi Penceresi Olmasına İzin ver" & vbCrLf & _
"            google.maps.event.addListener(marker, 'click', (function (marker, i) {" & vbCrLf & _
"                return function () {" & vbCrLf & _
"                    infoWindow.setContent(infoWindowContent[0]);" & vbCrLf & _
"                    infoWindow.open(map, marker);" & vbCrLf & _
"                }" & vbCrLf & _
"            })(marker, i));" & vbCrLf & _
"            // Tüm İşaretçileri Otomatik Olarak Ekrana Sığdır" & vbCrLf & _
"            map.fitBounds(bounds);" & vbCrLf & _
"        }" & vbCrLf & _
"        // Kullanıcı Zoom Seviyesini Geçersiz Kılıp Uzaklaştırmayı Otomatik Ayarla (SADECE BİR KEZ ÇAĞIRILMALI!)" & vbCrLf & _
"        var boundsListener = google.maps.event.addListener((map), 'bounds_changed', function (event) {" & vbCrLf & _
"            this.setZoom(14);" & vbCrLf & _
"            google.maps.event.removeListener(boundsListener);"
       
GAlt = GAlt & vbCrLf & "        });" & vbCrLf & _
"        //Pandera X Google Maps Fallback" & vbCrLf & _
"    }" & vbCrLf & _
"    </script>" & vbCrLf & _
"</body>" & vbCrLf & _
"</html>" & vbCrLf

objStream.WriteText GUst & vbCrLf & "markers = [" & vbCrLf & vbCrLf & GVeri & vbCrLf & vbCrLf & "];" & vbCrLf & vbCrLf & "var" & vbCrLf & vbCrLf & "infoWindowContent = [" & vbCrLf & vbCrLf & GVeri2 & vbCrLf & vbCrLf & "];" & vbCrLf & GAlt
 
objStream.SaveToFile FileName, 2

MsgBox ("Aktarım Tamamlandı")
rst.Close
objStream.Close
26/01/2021, 10:40

hakkih

Merhaba;

kodlar çalıştı ve çok güzel oldu, vermiş olduğunuz desteği için teşekkürler....


FileName = CurrentProject.Path & "\Test.html"


Test.html değil, personel sülününden personelin adına göre oluştursa.
Örnekte Mustafa.html

Teşekkür ederiz iyi günler
01/02/2021, 13:21

ozanakkaya

rst!PERSONEL kodu personelin adını verir. Belirttiğiniz gibi dosya adı 
FileName = CurrentProject.Path & "\Test.html"

kodu ile tanımlanmış. Bu kodu tabloya bağlanılan

Set rst = CurrentDb.OpenRecordset("CM-DISFA2")
 
kodundan sonra yazıp rst!PERSONEL kodunu dosya adında kullanılacak şekilde değiştirebilirsiniz.
14/02/2021, 14:20

temre

Merhaba

dosyayı paylaşabilir misiniz?