office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2021-04-23 08:00:00
tmtony
原创
387

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

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

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


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

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

2. 调用IE打开
 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

3. 使用API
'在模块中声明函数
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
    分享