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

在應(yīng)用程序中，很多情況下都需要跳轉(zhuǎn)到網(wǎng)絡(luò)地址，比如點(diǎn)開公司主頁

access中，有很多辦法可以通過點(diǎn)擊來打開對應(yīng)的地址。比如直接在標(biāo)簽的超鏈接地址屬性下填入對應(yīng)的地址。

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

1. 直接使用Access內(nèi)置命令  FollowHyperlink

 Application.FollowHyperlink "http://ctxi.cn"

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

'在模塊中聲明函數(shù)
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

'調(diào)用該函數(shù):
  ShellExecuteA Application.hWndAccessApp, "open", "http://ctxi.cn", vbNullString, vbNullString, 1

4. 使用shell命令

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