住所録データベースなどでは、必ず郵便番号のデータを入力すると思います。その入力・編集画面に、郵便番号からYahoo!の地図情報を表示させる機能を付加する方法です。
- 住所録のテーブルをレコードソースとするフォームを作ります。
- 郵便番号を入力するためのテキストボックスを用意します(コントロール名=郵便番号)。
- 地図情報を表示するためのコマンドボタンを用意します(コントロール名=表示)。
- フォームの「レコード移動時」イベントプロシージャを次のようにします。
これによって、レコードが移動するたびに、そのレコードの「郵便番号」に関する地図情報へのリンクがコマンドボタンの"ハイパーリンクアドレス"プロパティに設定されます。
Private Sub Form_Current()
Me!表示.HyperlinkAddress = "http://map.yahoo.co.jp/postal?p=" & Me!郵便番号
End Sub
|