Pessoal bom dia, to tentando fazer uma pagina em HTML a partir de dados de uma tabela temporária, porem na hora de gerar o loop dos dados que necessito nao esta dando certo, sera que alguem pode dar uma olhada e dar um help,

Sub AbreGoogle(TipoServico As String)
'criada por Alexandre Neves em 2012-04-12 para wmantovani do fórum ExpertAccess

Dim start_path As String
Dim fs As Scripting.FileSystemObject, F As Scripting.TextStream
Set fs = CreateObject("Scripting.FileSystemObject")
Dim Rst As DAO.Recordset
Dim wsh As Object

Set wsh = CreateObject("wscript.shell")
start_path = wsh.SpecialFolders("Desktop") & "\"
Set wsh = Nothing
Set Rst = CurrentDb.OpenRecordset("SELECT Endereço, Latitude, Longitude, Serviço FROM [ENTRADA DE PROCESSO] WHERE Serviço='" & TipoServico & "' GROUP BY Endereço, Latitude, Longitude, Serviço")

start_path = Replace(start_path, "\\", "\") & "access.html"
Set F = fs.OpenTextFile(start_path, 2, True)


F.Write "" & vbCrLf 'Linha correta
F.Write "" & vbCrLf 'Linha correta
F.Write "" & vbCrLf 'Linha correta
F.Write "" & vbCrLf 'Linha correta
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf

F.Write " var map = null;" & vbCrLf
F.Write "" & vbCrLf
F.Write " function initialize() {" & vbCrLf
F.Write " if (GBrowserIsCompatible()) {" & vbCrLf
F.Write " var map = new GMap2(document.getElementById(""mapa""));" & vbCrLf
F.Write " map.setCenter(new GLatLng(-22.31487, -49.049158), 13);" & vbCrLf
F.Write " map.enableScrollWheelZoom();" & vbCrLf
F.Write "" & vbCrLf
F.Write " var ui = new GMapUIOptions();" & vbCrLf
F.Write " ui.maptypes = {normal:true, roadmap:true, hybrid:true, physical:true, satellite:true}" & vbCrLf
F.Write " ui.zoom = {scrollwheel:true,draggable: true};" & vbCrLf
F.Write " ui.controls = {scalecontrol:true, draggable: true, smallzoomcontrol3d:true,largemapcontrol3d:false, scalecontrol:true};" & vbCrLf
F.Write " ui.keyboard = true;" & vbCrLf
F.Write " map.setUI(ui);" & vbCrLf
F.Write " map.addControl(new GMapTypeControl());//inserir tipos de mapas" & vbCrLf
F.Write " map.addControl = false" & vbCrLf
F.Write " var pontosLg = new Array();" & vbCrLf
F.Write " var pontosLt = new Array();" & vbCrLf
F.Write " var html = new Array();" & vbCrLf
F.Write " var icon = new Array();" & vbCrLf
F.Write "" & vbCrLf


'Inicio das coordenadas em loop na pagina
Do While Not Rst.EOF
If IsNull(Rst("teste")) Then

F.Write "pontosLg[i] = longitude;" & vbCrLf
F.Write "pontosLt[i] = latitude;" & vbCrLf
F.Write "html[i] = " & Chr(34) & "Ecoponto" & Chr(34) & ";" & vbCrLf
F.Write "icon[i] = new GIcon(G_DEFAULT_ICON);" & vbCrLf
F.Write "icon[i].image = " & Chr(34) & "http://static.batchgeo.com/images/icons/red_Marker.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[i].shadow = " & Chr(34) & "images/icon_medico_sombra.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[i].iconSize = new GSize(10, 17);" & vbCrLf
F.Write "" & vbCrLf

Else
End If
Rst.MoveNext
Loop



F.Write "for (var i = 0; i < pontosLg.length; i++) {" & vbCrLf
F.Write "map.addOverlay(criarMarca(pontosLt[i], pontosLg[i], html[i],icon[i]));" & vbCrLf
F.Write "}" & vbCrLf
F.Write "}" & vbCrLf
F.Write "}" & vbCrLf
F.Write "function criarMarca(lat, lng, html, icon){" & vbCrLf
F.Write "var point = new GLatLng(lat,lng);" & vbCrLf
F.Write "var marca = new GMarker(point,{icon:icon, draggable:false});//var marca = new GMarker(point,{icon:icon, draggable:false});" & vbCrLf
F.Write "if(html != null){" & vbCrLf
F.Write "GEvent.addListener(marca, " & Chr(34) & "click" & Chr(34) & ", function() {" & vbCrLf
F.Write "marca.openInfoWindowHtml(html);" & vbCrLf
F.Write "});" & vbCrLf
F.Write "}" & vbCrLf
F.Write "return marca;" & vbCrLf
F.Write "}" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "

" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf
F.Write "" & vbCrLf


F.Close
Set Rst = Nothing
Call Shell("explorer.exe " & start_path, vbNormalFocus)
End Sub

Grato

Boas Mantovani.. o que não dá certo, qual o erro ocorre?

Cumprimentos.

Caro Piloto a parte do codigo abaixo, deve pegar campos Latitude e Logitude da tabela ENTRADA DE PROCESSO e repitir com todos os dadossempre comforme a parte abaixo para posteriormente montar uma pagina HTML com os multiplos marcadores do google maps se quiser mando a pagina html final a qual estou tentando adaptar para access.

o [i] abaixo deve ser subistituido por 1 no primeiro registro, 2 no segundo e assim por diante a cada registros a ser montado

Inicio das coordenadas em loop na pagina
Do While Not Rst.EOF
If IsNull(Rst("teste")) Then

F.Write "pontosLg[i] = longitude;" & vbCrLf
F.Write "pontosLt[i] = latitude;" & vbCrLf
F.Write "html[i] = " & Chr(34) & "Ecoponto" & Chr(34) & ";" & vbCrLf
F.Write "icon[i] = new GIcon(G_DEFAULT_ICON);" & vbCrLf
F.Write "icon[i].image = " & Chr(34) & "http://static.batchgeo.com/images/icons/red_Marker.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[i].shadow = " & Chr(34) & "images/icon_medico_sombra.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[i].iconSize = new GSize(10, 17);" & vbCrLf
F.Write "" & vbCrLf

Else
End If
Rst.MoveNext
Loop

Boa noite,
utilize
Inicio das coordenadas em loop na pagina
Do While Not Rst.EOF
If IsNull(Rst("teste")) Then

F.Write "pontosLg[" & rst.AbsolutePosition+1 &"] = longitude;" & vbCrLf
F.Write "pontosLt[" & rst.AbsolutePosition+1 &"] = latitude;" & vbCrLf
F.Write "html[" & rst.AbsolutePosition+1 &"] = " & Chr(34) & "Ecoponto" & Chr(34) & ";" & vbCrLf
F.Write "icon[" & rst.AbsolutePosition+1 &"] = new GIcon(G_DEFAULT_ICON);" & vbCrLf
F.Write "icon[" & rst.AbsolutePosition+1 &"].image = " & Chr(34) & "http://static.batchgeo.com/images/icons/red_Marker.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[" & rst.AbsolutePosition+1 &"].shadow = " & Chr(34) & "images/icon_medico_sombra.png" & Chr(34) & ";" & vbCrLf
F.Write "icon[" & rst.AbsolutePosition+1 &"].iconSize = new GSize(10, 17);" & vbCrLf
F.Write "" & vbCrLf

Else
End If
Rst.MoveNext
Loop

Eis nosso Mestre Grande Alexandre... Como está vocë, espero que bem.

Mantovani, assim que pronto se puder disponibilizar o exemplo fico grato.

Cumprimentos.

Caro Alexandre, fiz o que passou, nao deu certo, nao ta montanto a parte que vc fez no html, o arquivo.zip tem o bd que to tentando fazer, se puder dar uma olhada, fico muito agradecido.

e so pra constar to assistindo algumas aulas de vba, mas juro pra mim ta parecendo bicho de 11 cabeças, rs.


Caro Piloto, assim que eu terminar posto, pois vi que muita gente procura algo assim, eu mesmo estou a quase dois anos na busca mas acho que agora vai dar certo....

o rst.AbsolutePosition+1 evolui como?

a cada registro deve mudar o numeral, iniciando pelo numero 1, o proximo 2, e assim por diante,

Tava dando uma olhada aqui, a linha:
If IsNull(Rst("teste")) Then

na verdade o correto é, pois nao pode conter valor nulo
If Not IsNull(rst("serViço")) Then


o arquivo anexo em html e o resultado final o qual quero chegar...atraves do codigo VBA

wmantovani, algum avanço?

Aguardamos...

Bom dia DamascenoJr., deu tudo certo sim, muito obrigado e desculpa nao ter dado o devido retorno à época.