Office中国论坛/Access中国论坛

标题: 局域网MDB警告：超链接可能会危害您的计算机......何故？ [打印本页]

作者: zww3008 时间: 2010-6-28 21:20
标题: 局域网MDB警告：超链接可能会危害您的计算机......何故？
本帖最后由 zww3008 于 2010-6-28 23:26 编辑

比较奇怪：在本地电脑中运行MDB程序时，一切正常，没有弹出安全警告。
但是将该MBD放在局域网中服务器上，再从其他电脑运行服务器上的MDB时，双击一窗体（为文件管理器，原文件以二进制数据形式储存在数据库中）中的文件，程序执行过程是将二进制形式的文件先下载还原到本地计算机的TEMP文件夹中，然后在本地关联打开文件。此时弹出如下警告：
[attach]42546[/attach]

程序代码为：
Public Sub ListView_DblClick()
If ListView.SelectedItem Is Nothing Then Exit Sub

      Dim rst As DAO.Recordset
      Set rst = CurrentDb().OpenRecordset("Select * from tblexpPhotos where PhotoID=" & Mid(ListView.SelectedItem.key, 3))
      Dim PicName As String, FileNo As Long, FileData() As Byte, lngFilelen As Double
      PicName = strTempDir & "\" & rst!PhotoID & "." & rst!Ext
      If Dir(PicName) = "" Then
         FileNo = FreeFile
         ReDim FileData(LenB(rst!Photo))
         FileData() = rst!Photo
         Open PicName For Binary As #FileNo
         Put #FileNo, , FileData() '把字段内容保存到文件
         Close #FileNo
         Erase FileData
      End If
      Application.FollowHyperlink PicName
  End Sub

为什么在本地运行时不会弹出警告，而在服务器上运行时则会，如何解决？

作者: zww3008 时间: 2010-6-28 23:35
找到答案了！

如何在 Office 2003 中禁用超链接警告消息
http://support.microsoft.com/kb/829072/

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