アクセスのフォームからgooglemapsを呼び出す。

| コメント(0) | トラックバック(0)

職場ではアクセスを使用して、いろいろ管理しています。
フォームに表示中の得意先住所を、ボタン一発で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エンコード機能がついているかどうかイマイチ分からなかったので、モジュールを利用して組み込みました。

トラックバック(0)

トラックバックURL: http://merao.furu.co.uk/mt422/mt-tb.cgi/75

コメントする

このブログ記事について

このページは、meraoが2006年10月 7日 16:17に書いたブログ記事です。

ひとつ前のブログ記事は「JAGA(ジャガ:日本ゲーム協会)の月例会 2006/9/23」です。

次のブログ記事は「第3回「渋谷ボードゲーム会(略称:しぶぼー)」開催」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。