请教窗体上文件名字段与OLE问题

程研

有这样的需求：点击窗体上的字段“文件名”需要自动把该字段对应的字段“原始文件”（OLE）自动打开。代码如何写，请各位高手指教！谢谢！见附件解压密码：123


   

tmtony

试一下这里面的实例看看
http://www.office-cn.net/forum.php?mod=viewthread&tid=69796

程研

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