双击窗体上列表框行启动链接字段代码应用问题

程研

请教各位老师：是关于连接字段在窗体上的应用问题。连接字段的关联字段（如网站名）可以在窗体上建立列表框，点击列表中的任意一个行的关联字段其对应的链接字段（网址）即可出现在窗体上，通常点击这个关联链接字段（网址）可实现登录网站。我的问题：如何双击窗体上的“列表框形成的目录表中的一行”自动实现上述操作，登录网站。代码如何写？在列表框中实现吗？附上一个实例MDE(导航系统)请各位指教一下。谢谢！

admin

将网址传给以下代码 即可打开网址
Application.FollowHyperlink "http://www.office-cn.net"

程研

admin 发表于 2013-7-2 13:52
将网址传给以下代码 即可打开网址
Application.FollowHyperlink "http://www.office-cn.net"

感谢指点！但实验后只能打开同一个你发的本站网址，我窗体列表中有很多链接字段（采集网站地址），附我应用程序，请再指教！

tmtony

Application.FollowHyperlink "http://www.office-cn.net"
您要把 "http://www.office-cn.net" 替换 成你自己的网站才行

程研

谢谢站长！你说得准，怪我没说清楚！我的问题就在取＂网址＂上，我要在＂网站＂字段中自动提取网址，达到在窗体列表框目录中双击某一网站名就自动登陆对应的网站！（目前我只能单击列表框一网站名，然后窗体上网址字段对应出现后再点击该字段中的网址才能登陆网站）。请您费心了！帮帮我吧！

程研

tmtony 发表于 2013-7-5 23:37
Application.FollowHyperlink "http://www.office-cn.net"
您要把 "http://www.office-cn.net" 替换 成你 ...

我的网址在一个链接字段里（很多），问题就是如何自动提取相应的这个网址字段的值谢谢！。

tmtony

修改事件代码如下, 另你第二个附件是MDE,无法看到代码

Private Sub List8_AfterUpdate()
    ' 查找与该控件匹配的记录。
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[序号] = " & Str(Nz(Me![List8], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Application.FollowHyperlink Me.Bookmark
End Sub

程研

tmtony 发表于 2013-7-9 08:40
修改事件代码如下, 另你第二个附件是MDE,无法看到代码

Private Sub List8_AfterUpdate()

感谢王老师指点!但我试了一下总是报错！请再帮助学生看一下！我将MDE和你的代码发你看问题在哪？我的要求在MDEI的窗体上！谢谢了！请您费心了

Private Sub List8_AfterUpdate()
    ' 查找与该控件匹配的记录。
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[序号] = " & Str(Nz(Me![List8], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Application.FollowHyperlink Me.Bookmark
End Sub

tmtony

你写的代码有错哦
请看我的附件

程研

tmtony 发表于 2013-7-9 22:56
你写的代码有错哦
请看我的附件

OK! 非常感谢王老师的指点帮助！