MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Mapa no Access

    avatar
    Junioper
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/01/2014

    Mapa no Access Empty Mapa no Access

    Mensagem  Junioper em 19/6/2018, 22:19

    Olá.
    Tenho endereços/locais de crimes e gostaria de visualizar em um mapa tais locais.
    Tentei acompanhar o exemplo desse video:
    youtube.com/watch?v=Z5C3p_3nahY porém não consegui.
    Será que foi a versão do meu Access 2007 ou alguem poderia explicar em portugues como realizar tal procedimento?
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    Registrado : 05/02/2010

    Mapa no Access Empty Mapa no Access

    Mensagem  good guy em 14/9/2018, 15:33

    Olá Junioper,

    Se você capturar o endereço do local através de uma variável é possível sim utilizando o Google Maps. Acredito que aqui no fórum já tenha um exemplo. Este código não é meu:

    Código:
    Private Sub GoogleMapsLink_Click()
    Dim strLinkUrl  As String     ' address of provider passed to Google maps in the URL (endereço do provedor passado para o Google maps na URL)
      Dim strPath     As String     ' Google maps URL   (URL do Google maps)
      Dim strAddr() As String       ' used to split up address string (usado para dividir a string do endereço)
      Dim i As Integer
      Dim strEndereco, strEstado, strBairro As String
      
      strEndereco = Forms!NomedoForm!txtEndereco
      strEstado = Forms!NomedoForm!txtEstado
      strBairro = Forms!NomedoForm!txtBairro
      
      
      ' this is the URL to Google maps (Esta é a URL para o Google maps)
      strPath = "http://maps.google.com/maps?q="

      ' setup the address URL to be passed by including the street, city and state (Ajusta o endereço URL a ser passado ao incluir a rua, cidade e o estado)
      strLinkUrl = RTrim(strEndereco) & "+" & RTrim(strBairro) & "+" & RTrim(strEstado)
     
     ' split up the address URL so that space between words can be removed.(Divide o endereço URL de modo que o espaço entre as palavras possa ser removido)
      strAddr = Split(strLinkUrl, " ", , vbTextCompare)

      ' piece back each address together with "+"   (captura de volta cada endereço junto com "+")
      strLinkUrl = ""
      For i = LBound(strAddr()) To UBound(strAddr())
        strLinkUrl = strLinkUrl & strAddr(i) & "+"
      Next i

      ' remove the trailing "+" and include the Google map URL (remove o sinal "+" e inclui a URL do Google maps)
      strLinkUrl = strPath & left(strLinkUrl, Len(strLinkUrl) - 1)
      Debug.Print strLinkUrl
      ' bring up Google maps passing the address   (apresenta o Google maps ao passar o endereço)
      Me.GoogleMapsLink.HyperlinkAddress = strLinkUrl
      
    End Sub

      Data/hora atual: 9/12/2019, 02:31