基本的にはEXCEL版の応用

ExcelにGoogle Maps APIで地図を埋め込み、住所検索、拡大／縮小、地図種類変更
を今回はACCESSのフォームでやってみるときの変更点をメモします。

ACCESSの場合表示用フィールドを設ける

EXCEL版はテキストボックスを作って、それに住所を入力してOKボタンを押すと検索します。これはACCESSでも可能ですが、GOOGLEMAP表示用アドレスフィールドを設けると、何度も入力しなくて済みます。
というのもGOOGLEMAPは必ずしも正確な住所で検索ができず、緯度経度、近くの建物の住所等、あるはQIITA町2010-2では検索できないがQIITA町2010では検索できる、など工夫する必要があるためです。

ACCESSではスピンボタンを表示させる時工夫が必要

上記のようなフィールドを設けたテーブルを単票形式のフォームに表示させ、上記記事のようにOKボタン、オプションボタンを設けますが、スピンボタンが見つかりません。
Web Browserと似ていますが、ツールボックスには表示されないので、
ActiveX Contorolsから
Microsoft FormsX.X Spinbutton
を選択する必要があります。
このときSpinbutton1とするとなぜかオブジェクト名がSpinbutton1_Spinbutton1となりましたが、そういう時もあるのでしょう。

ACCESSのWeb BrowserにはNavigate命令がない

AccessのWEB BROWSERにはありません。どうするかというとCotrolsourceプロパティに入れます。ところがここでもう一つ注意点があります

ACCESSのWeb BrowserのURLはEXCELと違う

navigate method missing from web browser control
Try this
=("www." & [text2] & ".com")
とあります。つまり()でつつまないと駄目なのです。

以上をまとめると、上記記事のOKボタンのプロシージャの記述はACCESSの場合、該当する部分の2行は記述を以下のように変更する必要があります。

Access.VB```
'EXCEl VBA
googleUri = "=(" & Chr(34) & "http://maps.google.com/maps/api/staticmap?size=600x600&zoom=" & no & "&sensor=false&markers=" & myAddressCoodinatePosition & "&maptype=" & myMapType & Chr(34) & ")"
WebBrowser1.ControlSource = googleUri


## オプションボタンにはキャプションがない
ACCESSのオプションボタンにはキャプションがありません
myMapType = OptionButton1.Caption
という記述はエラーになります。
また、元の記事はグループ化してあるのかな？オプションボタンを一つ押すと他は排他でFALSEにする必要があります。
Captionの代わりにtagプロパティを使うか、直接値を記述します。
optionbutton1を作ったらプロパティのタグにroadmapと入れます
もしくは値を直接入れます

Access.VBA```
Private Sub OptionButton1_Click()
  okButton.Enabled = True
  OptionButton2.Value = False
  OptionButton3.Value = False
  OptionButton4.Value = False
  myMapType = OptionButton1.Tag
  'myMapType = "roadmap"
  地図の表示
End Sub

地図の表示サブプロシージャはフォーム内

原記事ではわかりにくいですが、地図の表示はフォームのプロシージャに記述しないと動きません。

最後に

この機能はオフィス2007以降に仕様が変わったもののようですが、むしろこのフォームでボタンを押すと地図を表示する機能はACCESS用ではないでしょうか。あと住所ではなく緯度経度、ランドマークでもできますので、その場所にあった最適な表示を選んでみてください。
また縮尺はデフォルトではこの記事は10に設定されていますが、少し詳しく、12くらいでもいいかもしれません。縮尺用のフィールドを設けてもいいかもしれません。ただし、フォーム内の地図はマウスで拡大できます。