MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    cleiner
    avatar
    cleiner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 26/06/2011
    • Mensagem nº1

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  cleiner 6/12/2015, 04:40

    Olá, construí um formulário com um campo que mostra o GoogleMap e marcadores personalizados, para mostrar no formulário todos os clientes da empresa, juntos no mesmo mapa.

    Fiz da seguinte forma:

    - Criei um código VBA que cria um arquivo html com o código do mapa com os marcadores.

    - Coloquei o arquivo na pasta da aplicação e o campo no formulário aponta para o mesmo.

    até aí tudo ok, e até funciona muito bem, só que estou enfrentando dois problemas:

    1 - Ao abrir o formulário, a exibição é bloqueada, só sendo exibido o mapa após a confirmação do usuário.
    Tem como retirar essa solicitação?

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap 153b8u9

    2 - ao abrir o mapa, se o usuário for navegar pelo mesmo e passar o mouse em cima dos marcadores nativos do google, o mesmo receberá uma mensagem de erro de script, com solicitação para encerrar o script, porém mesmo que selecione sim ou não, a mensagem volta a aparecer repetidamente.

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap 20foruv

    Segue o exemplo que montei, e para quem tiver interesse no código criado.

    https://www.dropbox.com/s/6573bqej9rlpobi/GoogleMap.rar?dl=0


    Segue também a imagem de como fica quando está funcionando...

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap 2iw4qqt


    Abraços.
    • Ir para o topo
    cleiner
    avatar
    cleiner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 26/06/2011
    • Mensagem nº2

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  cleiner 9/12/2015, 02:50

    E aí? ninguém passou por isso? ou tem conhecimento para poder ajudar?
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº3

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  Alexandre Neves 13/12/2015, 15:18

    Boa tarde
    Só vejo o formulário. Onde está o código, etc?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    cleiner
    avatar
    cleiner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 26/06/2011
    • Mensagem nº4

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  cleiner 13/12/2015, 19:56

    O código está no próprio formulário, na função "Ao carregar".

    Segue o código:

    Private Sub Form_Load()
       Call MapaHtml
       
       Me.NavMapa.ControlSource = "=" & Chr(34) & CurrentProject.Path & "\Mapa.html" & Chr(34)
    End Sub

    Private Sub MapaHtml()
       Dim iArq As String

       iArq = FreeFile

    Open CurrentProject.Path & "\Mapa.html" For Output As iArq

    Print #iArq, "<!DOCTYPE html>"
    Print #iArq, "<html>"
    Print #iArq, "<head>"
    Print #iArq, "<meta name=" & Chr(34) & "viewport" & Chr(34) & " content=" & Chr(34) & "initial-scale=1.0, user-scalable=no" & Chr(34) & " />"
    Print #iArq, "<style type=" & Chr(34) & "text/css" & Chr(34) & ">"
    Print #iArq, "html { height: 100% }"
    Print #iArq, "body { height: 100%; margin: 0; padding: 0 }"
    Print #iArq, ".wrap { max-width: 75em; min-height: 40em; height:100%; width:100%; margin: 0 auto; padding-top: 0%;}"
    Print #iArq, "#map-canvas { height: 100%; }"
    Print #iArq, "</style>"
    Print #iArq, "<script type=" & Chr(34) & "text/javascript" & Chr(34) & " src=" & Chr(34) & "https://maps.googleapis.com/maps/api/js?sensor=true" & Chr(34) & ">"
    Print #iArq, "</script>"
    Print #iArq, "<script type=" & Chr(34) & "text/javascript" & Chr(34) & ">"
    Print #iArq, "var map;"
    Print #iArq, "var centerPos = new google.maps.LatLng(-5.836807, -35.234260);"
    Print #iArq, "var zoomLevel = 12;"
    Print #iArq, "function initialize() {"
    Print #iArq, "var mapOptions = {"
    Print #iArq, "center: centerPos,"
    Print #iArq, "zoom: zoomLevel"
    Print #iArq, "};"
    Print #iArq, "map = new google.maps.Map( document.getElementById(" & Chr(34) & "map-canvas" & Chr(34) & "), mapOptions );"
    Print #iArq, "var locations = ["
    Print #iArq, "['MARCADOR 01', -5.7488566, -35.2584566],"
    Print #iArq, "['MARCADOR 02', -5.8789428, -35.2122825],"
    Print #iArq, "['MARCADOR 03', -5.8734554, -35.2266030],"
    Print #iArq, "['MARCADOR 04', -5.8401069, -35.2185754],"
    Print #iArq, "['MARCADOR 05', -5.8237019, -35.2177116],"
    Print #iArq, "['MARCADOR 06', -5.8935256, -35.2336408],"
    Print #iArq, "[]];"
    Print #iArq, "var image = '\ImgMarcador.png';"

    Print #iArq, "for (i = 0; i < locations.length; i++) {"
    Print #iArq, "marker = new google.maps.Marker({"
    Print #iArq, "position: new google.maps.LatLng(locations[i][1], locations[i][2]),"
    Print #iArq, "title: locations[i][0],"
    Print #iArq, "map: map,"
    Print #iArq, "icon: image"
    Print #iArq, "});"
    Print #iArq, "}"
    Print #iArq, "}"
    Print #iArq, "google.maps.event.addDomListener(window, 'load', initialize);"
    Print #iArq, "</script>"
    Print #iArq, "</head>"
    Print #iArq, "<body>"
    Print #iArq, "<div class=" & Chr(34) & "wrap" & Chr(34) & ">"
    Print #iArq, "<div id=" & Chr(34) & "map-canvas" & Chr(34) & "></div>"
    Print #iArq, "</div>"
    Print #iArq, "</body>"
    Print #iArq, "</html>"

    Close #iArq
    End Sub
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº5

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  Alexandre Neves 13/12/2015, 21:29

    Realmente, não tinha reparado.
    Não consigo perceber.
    Haverá algum código para que o script seja activado sem mensagem de segurança


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    cleiner
    avatar
    cleiner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 26/06/2011
    • Mensagem nº6

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  cleiner 14/12/2015, 14:50

    É algo assim que estou precisando. Como autorizar esse script via VBA. Já tentei vários procedimentos porém não estou conseguindo.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    Problema no Formulário com "Controle de Navegador Web" e GoogleMap Empty Re: Problema no Formulário com "Controle de Navegador Web" e GoogleMap

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/4/2024, 19:18