#277
コマンドボタンコントロールには、クリックによって特定のWebページを表示する「ハイパーリンク」機能があります。VBAを使って"HyperlinkAddress/ハイパーリンクアドレス"プロパティの値を変えることで、動的にそのリンク先を変えることができます。
次の例では、テキストボックスに入力された発信元と宛先の２つの郵便番号を、郵政公社の配達日数検索サービスのパラメータとして渡します。それをコマンドボタンの"ハイパーリンクアドレス"プロパティに設定することによって、AccessフォームからそのWebページのサービスを呼び出しています。
Private Sub txt宛先_AfterUpdate()
Me!検索.HyperlinkAddress = "http://search.post.yusei.go.jp/send-pc/send.cgi?" & _
"mode=s" & _
"&zip1=" & Me!txt発信元 & _
"&zip2=" & Me!txt宛先
End Sub
Private Sub txt発信元_AfterUpdate()
Me!検索.HyperlinkAddress = "http://search.post.yusei.go.jp/send-pc/send.cgi?" & _
"mode=s" & _
"&zip1=" & Me!txt発信元 & _
"&zip2=" & Me!txt宛先
End Sub
※２つのイベントプロシージャの内容はまったく同じものですので、１つの独立したプロシージャとして作成してそれを呼び出すようにすることもできます。また、txt発信元のイベントプロシージャの内容を、txt宛先_AfterUpdate()を呼び出す形にすることもできます。
Me!検索.HyperlinkAddress = "http://search.post.yusei.go.jp/send-pc/send.cgi?" & _
"mode=s" & _
"&zip1=" & Me!txt発信元 & _
"&zip2=" & Me!txt宛先
End Sub
Private Sub txt発信元_AfterUpdate()
Me!検索.HyperlinkAddress = "http://search.post.yusei.go.jp/send-pc/send.cgi?" & _
"mode=s" & _
"&zip1=" & Me!txt発信元 & _
"&zip2=" & Me!txt宛先
End Sub
※２つのイベントプロシージャの内容はまったく同じものですので、１つの独立したプロシージャとして作成してそれを呼び出すようにすることもできます。また、txt発信元のイベントプロシージャの内容を、txt宛先_AfterUpdate()を呼び出す形にすることもできます。
実行例：
