Office中国论坛/Access中国论坛

标题: 双击窗体上列表框行启动链接字段代码应用问题 [打印本页]

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

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

作者: 程研 时间: 2013-7-2 19:15

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

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

作者: tmtony 时间: 2013-7-5 23:37
Application.FollowHyperlink "http://www.office-cn.net"
您要把 "http://www.office-cn.net" 替换成你自己的网站才行

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

作者: 程研 时间: 2013-7-7 18:59

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

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

作者: tmtony 时间: 2013-7-9 08:40
修改事件代码如下, 另你第二个附件是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

作者: 程研 时间: 2013-7-9 11:30

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 时间: 2013-7-9 22:56
你写的代码有错哦
请看我的附件

作者: 程研 时间: 2013-7-10 12:13

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

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

作者: 程研 时间: 2013-7-10 16:51

程研发表于 2013-7-10 12:13
OK! 非常感谢王老师的指点帮助！

还是请王老师您解决我的学习问题吧：我有一个学生成绩系统，“平均成绩”是一个字段，问题是“排名”字段的值如何自动随“平均成绩”赋值？见附件“自动排名”。再建一个按钮，写代码吗？有人说写一个函数：自定义函数：

Function 名次(ByVal 平均成绩 As Double) As Long
If 平均成绩 = DMax("平均成绩", "表1") Then
      名次 = 1
ElseIf 平均成绩 = DMin("平均成绩", "表1") Then
      名次 = DCount("*", "表1", "平均成绩>" & 平均成绩) + 1
Else
      名次 = DCount("*", "表1", "平均成绩>=" & 平均成绩)
End If
End Function
查询：
SELECT 表1.学号, 表1.姓名, 表1.平均成绩, 名次([平均成绩]) AS 排名 FROM 表1

请王老师指教！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)