指定したブラウザでURLを開く

Accessで作成したボタンを押すと、指定したブラウザでURLを開けるようにします。
なお、ブラウザがあらかじめインストールされていることが前提です。

Google Chromで開く

ボタンは仮に「Chrome」にしておきます。

イベントプロシージャの中身は以下の通り。

Private Sub Chrome_Click()
 'Google Chromeを起動し指定URLに移動
 CreateObject("WScript.Shell").Run _
 ("chrome.exe -url " & "https://www.amazon.co.jp/")
End Sub

アマゾンのトップページが開きます。

※こちらのサイトを参考にさせて頂きました「https://jizilog.com/vba-browse」

edgeで開く

ボタンは仮に「edge」に。

イベントプロシージャの中身は以下の通り。

Private Sub edge_Click()
'edgeを起動し指定URLに移動
CreateObject("Shell.Application").ShellExecute "microsoft-edge:https://www.amazon.co.jp/"
End Sub

アマゾンのトップページが開きます

※こちらのサイトを参考にさせて頂きました「https://www.ka-net.org/blog/?p=6048」

<a href="microsoft-edge:https://www.microsoft.com/" target="_blank">●●</a>