Mapa no Access

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?

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