在access中用代碼打開文本框中超鏈接地址

在應用程序中，很多情況下都需要跳轉到網絡地址，比如點開公司主頁

access中，有很多辦法可以通過點擊來打開對應的地址。比如直接在標簽的超鏈接地址屬性下填入對應的地址。

也可以用下面幾種vba代碼的方法來打開網址：

1. 直接使用Access內置命令  FollowHyperlink

 Application.FollowHyperlink "http://www.writeandmakemillions.com"

 Dim strUrl As String
 Dim objWb as Object
 Set objWb = CreateObject("InternetExplorer.Application")
 objWb.Visible = True
 strUrl = "http://www.writeandmakemillions.com"
 objWb.Navigate strUrl

'在模塊中聲明函數
Public Declare Function ShellExecuteA Lib "shell32.dll" _
                         (ByVal Hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, _
                       ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'調用該函數:
  ShellExecuteA Application.hWndAccessApp, "open", "http://www.writeandmakemillions.com", vbNullString, vbNullString, 1

4. 使用shell命令

Shell "cmd /c start http://www.writeandmakemillions.com", vbHide
Shell "explorer.exe http://www.writeandmakemillions.com", 1
ShellExecute Me.hWnd, "open", http://www.writeandmakemillions.com, "", "", SW_SHOWMAXIMIZED