设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3677|回复: 1
打印 上一主题 下一主题

[Access本身] 局域网MDB警告:超链接可能会危害您的计算机......何故?

[复制链接]
跳转到指定楼层
1#
发表于 2010-6-28 21:20:52 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 zww3008 于 2010-6-28 23:26 编辑

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


程序代码为:
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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2010-6-28 23:35:28 | 只看该作者
找到答案了!

如何在 Office 2003 中禁用超链接警告消息
http://support.microsoft.com/kb/829072/
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 21:47 , Processed in 0.140253 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表