Access(VBA)で住所を元にGoogleMapで表示

例えば住所録のボタンを押すと、ブラウザが開いてGoogleMap上に表示するようなもの。
もっと難しいのかと思って調べもしていなかったが、驚くほど簡単にできる。

フォーム上に
ボタン:cmdMapOpen
テキストボックス:txtAddress
を配置

ボタンのクリックイベントに以下のように記述

Private Sub cmdMapOpen_Click()
Dim strAddress As String
strAddress = "http://maps.google.co.jp/maps?f=q&hl=ja&q=" & Me!txtAddress
Me.cmdMapOpen.HyperlinkAddress = strAddress
End Sub

あとは、フォーム上のテキストボックスに住所を入れておき、ボタンをクリックするだけ。
環境によってできない場合もあるかも知れない

参考:
http://www.ktservices3.com/blog/archives/2007/06/accessgoogle_ma.html

追記
Operaでは住所文字列のエンコードに失敗して表示できなかった。
IEで表示させる場合は成功したので、ブラウザ指定版
Private Sub cmdMapOpen_Click()
Dim strAddress As String
strAddress = "http://maps.google.co.jp/maps?f=q&hl=ja&q=" & Me!txtAddress
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate strAddress
End Sub

参考:
http://merao.furu.co.uk/200610googlemaps.html

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

りんご丸
2014年09月24日 10:46
とても参考になりました。わかりやすい。園児の住所からmapを表示するのにつかせてもらいました。
2014年09月29日 22:31
コメントありがとうございます。お役に立って何よりでした。

この記事へのトラックバック