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...............
lütfen konu açarken daha dikkat edelim, sorular sorular kısmına açılmalı.
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 & _
" " & 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
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
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.
Merhaba
dosyayı paylaşabilir misiniz?