MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Obter Latitude e Logitude

    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 23/10/2017

    Obter Latitude e Logitude Empty Obter Latitude e Logitude

    Mensagem  juliobertoso em 17/8/2020, 22:41

    E ai pessoal,
    mais uma vez eu recorro a vocês

    seguinte, tenho um sistema que controlo fretes que usamos aqui na empresa, porem eu queria dar um Up nele, mas não consigo fazer a integração de um site para o Access.

    eu queria que após digitar o um endereço ele pegue a latitude e longitude e mostre no formulário do access. Tinha uma macro que fazia isso direto do google, mas agora é pago.

    o site que achei é travelaholics.com.br/ferramentas/qual-é-a-minha-latitude-e-longitude/ nele tem o campo endereço, latitude e longitude, minha ideia é digitar os dados no formulario do access e aparecer a latitude e longitude no access também sem precisar entrar no site e ficar copiando do site e colando no access manualmente

    tem este site também mapacep.com.br, mas penso que seria mais complicado

    se aguem puder me ajudar
    Anexos
    Obter Latitude e Logitude AttachmentCapturar.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 8 vez(es)


    Última edição por ahteixeira em 18/8/2020, 09:04, editado 3 vez(es) (Razão : Esconder hiperligações)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7694
    Registrado : 05/11/2009

    Obter Latitude e Logitude Empty Re: Obter Latitude e Logitude

    Mensagem  Alexandre Neves em 17/8/2020, 23:01

    Boa noite
    Atente à regra 14 do Fórum para o mantermos organizado


    .................................................................................
    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
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 23/10/2017

    Obter Latitude e Logitude Empty Re: Obter Latitude e Logitude

    Mensagem  juliobertoso em 19/8/2020, 16:34

    consegui um "quase"

    porém na parte de pegar o código no site e alimentar as textbox (txtLatitude e txtLongitude) não esta acontecendo Sad


    Código:
    Function busca_Laitude_Longitude()
    Dim ie

    Set ie = CreateObject("internetexplorer.application")

    ie.navigate "http://www.travelaholics.com.br/ferramentas/qual-%C3%A9-a-minha-latitude-e-longitude/"
    ie.Visible = True

    Do While ie.Busy And ie.ReadyState <> "READYSTATE_COMPLETE"
    DoEvents
    Loop

    ie.Document.getElementsByTagName("textarea")(0).Value = Form_frmCad_Transportadores.CEP
    ie.Document.getElementsByClassName("greenbutton")(0).Click ' clica no botão que é a classe
        
    Do While ie.Busy And ie.ReadyState <> "READYSTATE_COMPLETE"
    DoEvents
    Loop

    Form_frmCidadeSUB.txtLatitude = ie.Document.getElementsByTagName("input")(0).Value
    Form_frmCidadeSUB.txtLongitude = ie.Document.getElementsByTagName("input")(1).Value


    ie.Quit

    End Function
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7694
    Registrado : 05/11/2009

    Obter Latitude e Logitude Empty Re: Obter Latitude e Logitude

    Mensagem  Alexandre Neves em 19/8/2020, 20:22

    Boa noite
    Porque diz que conseguiu um "quase"?
    O valor não é lido? É lido e não é colocado na caixa de texto?


    .................................................................................
    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
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 23/10/2017

    Obter Latitude e Logitude Empty Re: Obter Latitude e Logitude

    Mensagem  juliobertoso em 19/8/2020, 22:06

    ele não apresenta os valores, porém analisei o código mais um pouco e o "input" estava na sequencia errada, sendo (6) e (7) o correto, mas mesmo assim eu não consigo obter os valores corretos

    Código:
    Form_frmCidadeSUB.txtLatitude = ie.Document.getElementsByTagName("input")(6).Value
    Form_frmCidadeSUB.txtLongitude = ie.Document.getElementsByTagName("input")(7).Value

    após digitar o endereço pra consultar, os números padrões de Latitude: 51,50000000 e Longitude:-0,10000000 são alterados para os números da localização solicitada. aqui esta o problema, é apresentado no access os valores padrões e não os solicitados

    exemplo:
    valores padrões

    Latitude: 51,50000000
    Longitude:-0,10000000

    deverião ficar assim se eu busco pelo endereço: rua julio de mesquita, campinas

    Latitude: -22,9002351
    Longitude: -47,0546013

    Anexos
    Obter Latitude e Logitude Attachmentcodigo.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 2 vez(es)

      Data/hora atual: 19/9/2020, 07:55