在access中用代码打开文本框中超链接地址

在应用程序中，很多情况下都需要跳转到网络地址，比如点开公司主页

access中，有很多办法可以通过点击来打开对应的地址。比如直接在标签的超链接地址属性下填入对应的地址。

也可以用下面几种vba代码的方法来打开网址：

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

 Application.FollowHyperlink "http://www.office-cn.net"

 Dim strUrl As String
 Dim objWb as Object
 Set objWb = CreateObject("InternetExplorer.Application")
 objWb.Visible = True
 strUrl = "http://www.office-cn.net"
 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.office-cn.net", vbNullString, vbNullString, 1

4. 使用shell命令

Shell "cmd /c start http://www.office-cn.net", vbHide
Shell "explorer.exe http://www.office-cn.net", 1
ShellExecute Me.hWnd, "open", http://www.office-cn.net, "", "", SW_SHOWMAXIMIZED