請教窗體上文件名字段與OLE問題

程研

有這樣的需求：點(diǎn)擊窗體上的字段“文件名”需要自動(dòng)把該字段對應(yīng)的字段“原始文件”（OLE）自動(dòng)打開。代碼如何寫，請各位高手指教！謝謝！見附件解壓密碼：123


   

tmtony

試一下這里面的實(shí)例看看
http://ctxi.cn/forum.php?mod=viewthread&tid=69796

程研

tmtony 發(fā)表于 2014-4-17 11:44
試一下這里面的實(shí)例看看
http://ctxi.cn/forum.php?mod=viewthread&tid=69796

謝謝！問題是相同，但沒有結(jié)果，如何實(shí)現(xiàn)對OLE名稱字段的雙擊來打開OLE中的文檔（WORD.......）是我的期盼。過去您曾寫過自動(dòng)打開鏈接字段的代碼（附后），如何在此基礎(chǔ)上調(diào)整打開OLE的代碼是我學(xué)習(xí)的一個(gè)突破難點(diǎn)，請您再次指教！謝謝老師了。
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.網(wǎng)址.Value = rs("網(wǎng)址")
      ' Application.FollowHyperlink Replace(Me.網(wǎng)址, "#", "")
    End If
End Sub