職場ではアクセスを使用して、いろいろ管理しています。
フォームに表示中の得意先住所を、ボタン一発でGoogleMaps表示できるように改良しました。
とても簡単なので、おすすめですよ。
VBAで
Private Sub 任意のボタン名_Click()
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate "http://maps.google.co.jp/?q=" & Encode("住所の文字列")
End Sub
…といった感じに書くだけ!
これで、地図表示機能がついちゃいます。簡単ですなあ。
"Encode"は、文字列をURLエンコードしてくれる関数です。
こちらでモジュールとして配布しています。
注:アクセスVBAに、標準でURLエンコード機能がついているかどうかイマイチ分からなかったので、モジュールを利用して組み込みました。

コメントする