Office中国论坛/Access中国论坛

标题: 请教窗体上文件名字段与OLE问题 [打印本页]

作者: 程研 时间: 2014-4-16 17:03
标题: 请教窗体上文件名字段与OLE问题
有这样的需求：点击窗体上的字段“文件名”需要自动把该字段对应的字段“原始文件”（OLE）自动打开。代码如何写，请各位高手指教！谢谢！见附件解压密码：123
[attach]53825[/attach]

作者: tmtony 时间: 2014-4-17 11:44
试一下这里面的实例看看
http://www.office-cn.net/forum.php?mod=viewthread&tid=69796

作者: 程研 时间: 2014-4-17 13:17

tmtony 发表于 2014-4-17 11:44
试一下这里面的实例看看
http://www.office-cn.net/forum.php?mod=viewthread&tid=69796

谢谢！问题是相同，但没有结果，如何实现对OLE名称字段的双击来打开OLE中的文档（WORD.......）是我的期盼。过去您曾写过自动打开链接字段的代码（附后），如何在此基础上调整打开OLE的代码是我学习的一个突破难点，请您再次指教！谢谢老师了。
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.网址.Value = rs("网址")
   ' Application.FollowHyperlink Replace(Me.网址, "#", "")
End If
End Sub

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