Access ： RunCommand インターネットのアドレスを開く

Access VBA RunCommandでホームページを開くには、acCmdOpenURLを使います。

DoCmd.RunCommand acCmdOpenURL を実行すると、URLを入力する「インターネットのアドレスを開く」ダイアログが開きます。
そこにURLを入力すると、ブラウザがオープンしWEBサイトが表示されます。

■ サンプルソフト作成手順
1） Accessを起動し、「空のデータベース」をクリックします。


2） データベースファイルの保存先を指定すると、データベースウィンドウが開きますので、「フォーム」「新規作成」の順にクリックします。


3） 　「デザインビュー」を選択し、「OK」ボタンをクリックします。

4） フォームにコマンドボタンを設置し、キャプションを「URLを入力」にしました。


5） コマンドボタンのプロパティウィンドウで、クリック時をイベントプロシージャにし、右端のボタンをクリックします。


6） コマンドボタンのクリックイベントが表示されるので、コードを入力します。


7） フォームを保存し開き、「URLを入力」ボタンをクリックします。


8） インターネットのアドレスを開くダイアログが表示されるので、URLを入力し「OK」ボタンをクリックします。
　これで、ブラウザが開きWEBサイトが表示されます。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    'AccessからHPを開く
    DoCmd.RunCommand acCmdOpenURL

End Sub